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TSC 6800 Mnemonic Assembler 
SL68-26 

Copyright (c) 1977 
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West Lafayette, IN 4 7906 

The TSC 6800 Mnemonic Assembler was written for maximum flexibility 
making it usable to owners of RAM-only systems as well as disk system 
owners. As always, flexibility adds complexity and therefore the user 
is advised to read the following application notes thoroughly before trying 
to use this program. 

It is assumed that the user is familiar with assembly language and. 

In particular, the mnemonics of the M6800 assembly language. Those who 
are not are referred to the "Mb800 Microprocessor Programming Manual" or 
the "M6800 Programming Reference Manual," both available from your 
Motorola distributor. 

The source language (Input) for the TSC 6800 Mnemonic Assembler con¬ 
sists of a subset of the 7~blt ASCII (American Standard Code for Information 

Interchange, 1968) character set. Special meaning Is attached to many of 

. 

these characters as will be described later. In all cases the parity bit 
(most significant bit) of each character must be 0. This restriction, of 
course, does not apply to line numbers, if present. 

Each line of source for the assembler consists of any number of bytes 
(possibly none) preceeding the first character of the source statement, 
followed by the source statement, followed by a carriage return (hex 0D). 

The source statement consists of up to four "fields" which are free format. 
From left to right, the four fields are label , operator (mnemonic)^ 
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operand, and corwnent. There must be at least one space between each of' 
these fields. Further restrictions and options for each of these fieldss 




are: 

label field 

1) The label must begin In the first column and must be unique. 

2) Labels consist of letters (A-Z) and numerals (0-9). 

3) Every label must begin with a letter (A-Z). 

i») Only the first 6 characters of any label are significant, the 
rest are Ignored. 

5) The label field may be the only field present. 
operator field 

1) The operator Is 3 alphabetic characters (A-Z) which must be 
followed by a space. The exception to this Is number 2, below. 

2) Mnemonics such as LDA A and AND B may be written as LDAA and A.NDB, 
respectively. In this case fourth character must be followed by 

a space. 

f i- *-;VV ~ •?.. * j : v---;'' •• •; :*f. / ’ * • • • V* ‘ 

operand field 

. . 

1) The operand field may consist of an addressing mode Indicator and 

i r ft . ; • - - • * ' C-V 


an expression or just an expression. 

- ■ ' > 11 1! - : ’ ■" ’ . ■- 

2) The addressing mode Indicator Is either a # (Pound sign) followed 

by an expression for Immediate addresslon or an expression followed 
by ,X for Indexed addresslon. (Expressions defined later.) 

3) An operand may or may not be required depending on the addressing 
mode. 


C 
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comment field > 1,0 

1) The comment field Is optional . 1 ; 

2) Comments may contain any character from SPACE ($20) to DEL l$7F). 

Expressions y 

Expressions consist of combinations of numbers and symbols seperated 
by one of the four arithmetic operators +, - , /. The arithmetic is 

done with 16 bit integer operands and truncated as necessary. 8 bit results 
are taken from the least significant 8 bits. Unary (+) and (-) are allowed. 
Expressions must not contain spaces. 

Numbers 

Numbers are groupings of the numerals 0-9 and posstbiy letters pre¬ 
fixed or_ postfixed by a base indicator. Possible base Indicators are shown 
below. The ASCII base allows a single ASCII character ($20-$5F) to be 
used as an operand when preceeded by a single quote. 


Base 

Prefix 

Postfix 

Comment 

Decimal 

none 

none 

decimal assumed 

Binary 

% 

B 

0, l allowed 

Octal 

e 

0 or Q 

0-7 allowed 

Hexadecimal 

$ 

H 

0-9, A-F allowed 

ASCII 

1 

not allowed 

ASCII equivalence 


Symbols 

Symbols are groupings of letters and numerals the first 6 of which are 
significant and the first of which must be a letter. The single character 
* is a special symbol whose value is the current value of the program counter 
(PC). 
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Evaluation of Symbols and Expressions 

-'■Vjsv Since this is a two pass assembler all symbols must be resolved in the 
two passes. Therefore, only one level of forward referencing is allowed. 

Assembler Directives 

In addition to the 72 M6800 mnemonics this assembler supports 11 
assembler directives or pseudo-ops. These pseudo-ops are listed below 
along with a brief description. More detailed descriptions follow. 


FCC 

form constant character 

FCB 

form constant byte 

FOB 

form double byte 

SPC 

Insert spaces in output listing 

OPT 

activate or deactivate assembler options 

PAG 

skip to next page of output 

ORG 

define new origin (PC) 

EQU 

assign value to symbol 

END, MON 

signal end of source program 

NAM, TTL 

O . •* r * ’ ~Z v 

RMB 

specify name or title 

reserve memory bytes 

FCC 

. . - p 


The function of FCC Is to create character strings for messages or 
tables. The character string 'text' Is broken down to ASCII, one character 
per byte. The two allowable formats are shown below: 

label FCC count, text 

or 

label FCC delimiter text same delimiter 
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where count is any legal expression. In the cdse where a number is used as 
a delimiter the first character of text must not be a comma. The character 
limit of any single FCC statement Is 255. The use of label Is optional. 

FCB 

The FCB pseudo-op causes an expression to be evaluated and the re^ 
sultarit 8 bits placed In memory. Usage Is shown below: 

label FCB expression 1, expression 2,...,expression N 

Each expression is seperated by a comma with a maximum of 2 $$ expressions 
per FCB statement. The label is optional. 

FOB 

The function of the FDB directive is identical to FCB except 16 bit 
quantities are assembled, I.e., two byteS generated for each expression. 

The required format is shown below: 

label FDB expression I, expression 2,...,express ion N 

where the label is optional. The maximum number of expressions is 127. 

SPC 

The SPC operator causes the specified number of Spaces to be inserted 
in the output listing. The format is shown below. 

SPC expression 

Notice that no label is allowed. If 'expression' evaluates to zero one 
space Is Inserted. The operator SPC Itself does not appear fh the output 
listing. If PAGE mode is selected SPC will not cause spacing past the top 
of the next page. 
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OPT 

The directive OPT Is used to activate or deactivate the assembler 
options. The format Is shown below. Notice that no label Is allowed and 
no code Is generated. 

' OPT option 1, option 2,...,option N 

The allowable options are: 


SYM 

NOS 

print sorted symbol table after the listing (default) 
do not print the symbol table 

GEN 

NOG 

print all code generated by FCB, FDB, and FCC (defaults 
print only one line for each FCB, FDB, or FCC 

US 

NOL 

print the assembled source listing (default) 
suppress the printing of the source listing 

PAG 

NOP 

enable page formatting and numbering 
disable page mode (default) 

-i ; . - 

MEM 

NOH 

. J . .. *t , 

enable storing of object code In memory 
disable storing of object code In memory (default) 

TAP 

NOT 

enable the production of MIKBUG object tape 

disable the production of MIKBUG object tape (default) 


If contradicting options appear the last one appearing takes precedence. All 
options take effect simultaneously at the beginning of pass 2. The default 
options specified take effect unless the user specifies a particular option. 
Only the first 3 characters of an option name are significant and multiple 
options are seperated by a comma. Some of the consequences and uses of the 

. ;• , A • 

options will be explained later. 
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PAG 

The PAG operator, If the PAG option Is on, causes a page eject and 
subsequently causes the title (if any) and page number to be printed at 
the top of the next page. No label is allowed and no code is produced. 

Notice that the first page of any listing is page 0 and no title Is printed 
on that page. The PAG operator itself will not appear in the listing. 

The usual procedure is to have all the options and the title declaration 
followed by a PAG be the first statements in a program. 

ORG 

The ORG operator, whose format is shown below, causes a new origin 
address (PC) for the code following. 

ORG Expression 

No label Is allowed and no code is produced* If no ORG appears an origin 
of 0000 is assumed. 

EQU 

EQU is used to equate a symbol to an expression as showh below. A 
label is required and no code Is generated. Only one level of forward 
referencing is allowed and the equate must not be recursive, 
label EQU expression 

No code is produced by EQU. 

END or MON 

These operators signal the assembler that the end of the source Input 
has occurred. No label is allowed and no Code Is generated. 
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NAM or TTL 

These operators are used to assign a title to be printed at the top 
of all pages (other than page 0) If the PAG option 1s on. If the PAG 
option Is off this operator has no effect. The format, as shown below 
allows up to 32 characters In the title. No label Is allowed 



TTL text for the title 


and no code Is generated. If more than one TTL or NAM operator appears 
the last one "executed" will be printed on the next page. 

RMB 

This operator causes the assembler to reserve memory for data storage. 
No code Is produced and therefore the contents of those memory locations 

v*.?r - - 

are undefined at run time. The label Is optional as shown below 
label RMB expression 
where 'expression* Is a 16 bit quantity. 

** Description of assembler operation 

' • 

Pass 1 - PASONE ($0381) 

Pass I Is used to build the symbol table which Is used to resolve 
forward references. Nothing Is printed unless the error limit Is exceeded 
(85). Pass 1 must be run before PASS 2 and again before PASS 3- 

Pass 2 - PASTWO ($0309) 

During pass 2 several things may happen. 

- ' ' * ) S '■ ' -v • 

1) If the LIST option Is on, the assembled source listing Is printed with 
error messages, If any. 



( 


L 
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2) If the LIST option Is off only offending source lines and their 
corresponding error messages are printed. 

3) If the TAPE option Is on; a HIKBUG formatted object record Is outputted 
(through a different control point than the source llsttng). 

A) If the MEMORY option Is on, object code Is placed In memory In the 
following form: 



C 



COUNT ADDRESS DATA ... DATA COUNT ADDRESS DATA ... DATA TERM 

where ADDRESS Is the destination address of the first data following 
COUNT Is a 16 bit byte cbunt Indicating how many data bytes 
follow 

DATA Is the actual data 

TERM Is the record terminator (a COUNT of 0000) 

When a count of 0000 occurs this signifies the end of the program. 

5) If the SYMBOL option Is on, a sorted symbol table will be printed after 
the assembly listing (If any). Pass 1 must be run before PASS 2. 

Pass 3 ~ PASTHR ($05BB) 

Pass 3 Is used when the user does not have a "punch" device, on whtch 
to save the MIKBUG formatted records, whtch operated Independently from the 
list device. Pass 3 Is Identical In operation to pass 2 except that NOSYM, 
NOLIST, NOMEM and TAPE options are forced and error messages are suppressed. 
Pass 1 must be run before PASS 3> PASS 2 and PASS 3 ere Independent. 

InitialIzatlon 

There extsts In the assembler an Initialization routine for each of 
the passes which must be run once before that pass In run. These are 
called P1INIT, PZINIT, and P3INIT for passes 1, 2, and 3* respectively. 
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Adapting to Your System 

Due to the Inherent flexibility of this assembler It Is necessary 
that each user customize It to fit the particular system. This involves 
very few changes and can be made by any Individual familiar with 6R00 
assembly language. Each point to be adapted Is explained below. 

Output Character Routine 

The address at $0321 must be changed to that of your Output 
Character routine. This routine must print the ASCII character In 
the A register whose parity bit (most significant bit) Is zero. The 
B and X registers must not be altered. If you have a printer or a 
disk you will likely want to specify the address of a program which 
handles these peripherals as well as the control terminal. 

Tape Output Character Routine 

The address at $0324 must be changed to that of your tape punch 
(or tape record) routine. It Is through this control point that the 
MIKBUG formatted object code Is outputted. If you do not have a 
seperate punch or record device this address may be the same as the 

Output Character routine address, l.e., tape device same as list device. 

- • ■ ' ' .. 

Tape Control Characters 

There are provisions at $04C0 and $04c4 for four control characters 
to activate and deactivate, respectively, your punch or record device. 
Simply place the appropriate control characters for your device In each 
of the strings. If you desire to send less than the four characters, 
change the byte at $04B3 to the appropriate value (even 0). This 
will, of course, affect both turn on and turn off simultaneously. 
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Tape Control Delay 

The byte at $04C9 controls the number of half-seconds (1MHz clock) 
of delay between tape turn on and data and also between data and 
tape turn off. The delay Is set now to ‘Z seconds. If you don't 
need delay at all set the byte to 00. 

Page Control 

Page Eject 

The four bytes at $ 11D1 are provided for the user to Insert the 
necessary control characters to cause the printer to form feed,/ 
i.e.» eject to the top of the next page. If you heed only 1 
character, itmply place the 04 after that character In the string. 
The control character Is currently set to $0A (line feed). 

Top Margin Control 

The byte at $1143 controls the number of lines from the form 
feed position to the title and page number line (can be 0). 

Pige Length Control 

The byte at $07C$ controls the numbed of tines to be printed 
on each page before the form feed Is issued. This count Includes 
the top margin and the title line and shodld be larger than 
(top margin + l). 

The user may want to alter other features such as the number of columns 
printed in the symbol table, etc. Mott modifications of this type 
will be needed by only a few Users and therefore will not be elaborated 
upon here. These users are encouraged to study the code to facilitate 
making the desired modifications. 
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Controller Routine 

The routine MAIN ($300) Is an example of how to use the assembler 
subroutines. It assumes the user has no Independent punch device 
and therefore must run PASS 3 In order to output the object code. 

Also, MAIN assumes the source program resides entirely In RAM and 
that the necessary pointers (to be described) are set. 

Disk users will, of course, want to write their own MAIN 
routine which will bring in each section of source code and run 
PASS 1 on each, then bring In each section again and run PASS 2, 
similarly for PASS 3. Naturally, the Initlatlzatlon routine for 
each pass need be run only once before each series of passes of the 
same type. Be reminded that PASS 1 needs to be run before PASS 2 
and again before PASS 3. This procedure will allow assembly of 
files too large to reside entirely In RAM. 

One note of caution: the END operator is not strictly necessary 
at the end of a program as the pass In effect will terminate at 
the end of the source area. However, If you are generating object 

% 

code, only an END statement will flush the code buffer or fix the 
memory count. Likewise, only an END operator will cause the symbol 
table to be printed (if SYM Is on). The byte ENDFLG ($0058 ) will 
be set ($FF) If the END operator occurs, which can be detected by 
your MAIN routine. 
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Assembler Data Pointers 

Before calling any assembler routines the user must set several pointers 
to data areas. This feature allows much flexibility but restrictions which 
apply to each pointer are outlined below. No assembler routines modify 
these pointers. 


C 













LBLBEG - $001*0 
LBLEND - $001*2 


These are the pointers to the area which will be used for the label 
table (symbol table). Each entry (symbol) In the table requires 8 bytes. 

A large table will result In the Put Label and Find Label routines running 
faster but the Shell (sort) routine will run slower. A small table will 
have the opposite effect. Of course, the table needs to be large enough 
to accomodate the number of symbols In your program. A reasonable formula 
for determining the size necessary Is: 

SIZE-N*8*2-N*16 bytes 

where N Is an estimate of the number of symbols expected. When the table 
Is full an error message will be Inserted In the listing. (The table may 
not be completely full due to the algorithm used for creating the table - 
hashing, or scatter storage.) 

If you want a IK symbol table (a recommended minimum, enough for 
60-80 labels) you might set LBLBEG to $2000 and LBLEND to $23FF. Notice 
that the pointers do point to the actual beginning and end of the table. 

SRCBEG - $001*1* 

SRCEND - $001*6 

These two pointers Indicate the beginning and end of the section of 
source code to be assembled, which may be as small as one line of source. 
SRCEND must point to the carriage return ($0D) of the last line of the 
source section to be assembled. 


LINBYT - $00A8 









Although not actually a pointer LINBYT Is related to the source pointers. 
It tells the assembler how many bytes to Ignore from carriage return of 
the previous line (or SRCBEG) before actually processing text. This allows 
direct output of text editors to be assembled without removing the preceedlng 
line numbers. If you have no line number bytes, set LINBYT to 0. 

MEMPTR - $0049 

This pointer tells the assembler where In memory, If the MEMORY option Is 
on, to put the assembled object codet Recall that four extra bytes 
(address and count) are required for each contiguous block of code. 

Error Messages 

This assembler supports 12 error messages which are printed after 
the offending line. The error messages announce violations of any of the 
restrictions set forth In this manual and are, therefore, self-explanatory. 

Additionally, the byte 'ERRORS' (cleared by PIINITJ will be set If any 
errors have occurred In any of the passes. 

Note: The ASCII characters 00 - $0C, $0E - $1F, and $80 - $8F, Inclusively 
are explicitly prohibited from being In any area of the source program with 
the exception of the bytes which are skipped by the assembler (line number 
bytes). Their existence wl11 cause undefined results. The remaining ASCII 
characters may appear subject to all of the foregoing restrictions. 

Additional Feature 

This assembler supports 2 extra mnemonics namely BHS and BLO which 
are the logical equivalents of BCC and BCS respectively. However, Branch 
if Higher or Same and Branch If Lower are much easier to remember and use. 
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Final Note 

Please be reminded, when using the MEMORY option, that In most cases 
the object code will not be put In memory where It can be executed. It 
Is up to the user to write the simple routine necessary to move the code 
to Its proper executable location. 

Important: The address at $031C is the address to which control returns 
when the assembly is complete. This should be modified to suit your needs. 


C 



**** USING THE TSC EDITOR **** ***** 

The TSC Text Editing System and the TSC Mnemonic Assembler have not 
been written to be used co-resident. It is possible to use them one 
after the other without reloading the source. Following is the 
procedure to be used: 

1. Load the editor but before running, change BEGPNT (location $0359) 
presently $1492 to $1600. This moves the starting location of the 
text. Put a $0D at location $15FF. 

2. Run the editor and create your file. 

3* When finished, exit the editor and write down the contents of 

a. ) FILBEG ($0097“ 0098) Shows the source beginning. 

b. ) FI LEND ($0099“009A) Shows one past the source end. 

Load the assembler but before running be sure to set all pointers. 

a. ) Symbol Table limits ($0040-0043) 

b. ) Source beginning ($004^-0045) contents of edit FILBEG 

c. ) Source ending ($0046-0047) "contents-1" of edit FILEND 

***** Be sure to subtract one from FILEND !! 

d. ) Skip count ($0048) Set this to 03 (3 line no. In editor) 

e. ) Memory pointer ($0049) Set if used. 

5- Run the assembler. 
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* * TSC 68e8 RELOCATOR 

* 

* ' COPYRIGHT <C> 197? BY 

* TECHNICAL SYSTEMS CONSULTANTS, INC. 

* P. 0. BOX 2574; W. LAFAYETTE, IN 47986 

* <31?> 742-7589 

Hi 

6209 ORG $0200 

* PROGRAM STRRT 


6200 

82 

0F 

FF 

START 

LDS 

#$8FFF 

SETUP STACK 

0203 

72 

03 

2F 


JMP 

BEGIN 

START THE PROGRAM 





h. TEMPORARY STORAGE 


0206 




TAPE 

RMB 

1 

LORDED FROM TRPE FLRG 

6207 




PLAY 

RM9 

1 

RECORDER ON FLRG 

0288 




FIXREF 

RMB 

1 

FIX REFERENCES FLAG 

0209 




TEMPI 

RM9 

2 

TEMPORARY REGISTER 

6203 




TEMP2 

RMB 

2 

TEMPORARY REGISTER 

626D 




TEMP3 

RMB 

2 

TEMPORARY REGISTER 

020F. 



_ 

CMPREG 

RMB 

2 

2 BYTE COMPARE REG. 

6211 




DRCPTR 

RMB 

2 

DIRECT STACK POINTER 

6213 




OLDPTR 

RMB 

2 

OLD PROGRAM POINTER 

0213 




NEWPTR 

RMB 

2 

HEW PROGRAM POINTER 

8217 




OBJEND 

RMB 

2 

END OF OLD PROGRAM 

0219 




RGBEG 

RMB 

2 

RANGE BEGIN ADDRESS 

6218 




RGEND 

RMB 

2 

RANGE END ADDRESS 

621D 




OFFSTL 

RMB 

1 

LEFT HRLF OFFSET 

021E 




OFFSTR 

RMB 

1 

RIGHT HALF OFFSET 





* EXTERNAL ROUTINE JUMPS 


021F 

7E 

El 

D1 

OUTCH 

JMP- 

fElDl.— 

OUTPUT ROUTINE 

0222 

7E 

El 

AC 

INCH 

JMP 

$eiac 

INPUT ROUTINE 

0223 

7E 

E0 

E3 

MONITR 

JMP 

SE0E3 

EXIT ADDRESS 





* PRINT 

STRINGS 


0228 

08 



PNEXTS 

INX 



6229 

80 

8B 


PSTRNG 

BSR 

PCRLF 

PRINT CR AND LF 

022B 

A6 

00 


PDATA 

LDA A 

0, X 

GET CHARACTER 

022D 

31 

04 



CMP .A 

#4 

IS IT EOT? 

022F 

27 

10 



BEQ 

RETURN 


0231 

8D 

EC 



BSR 

OUTCH 

OUTPUT IT 

6233 

08 




INX 



0234 

29 

F5 



BRA 

PDATA 


0236 

FF 

02 

09 

PCRLF 

STX 

TEMPI 

SAVE X REGISTER 

0239 

CE 

G5 

83 


LDX 

#CRLF 

POINT TO STRING 

G23C 

8D 

ED 



BSR 

PDATA 

PRINT THE STRING 

0235 

FE 

02 

09 


LDX 

TEMPI 

RESTORE X REGISTER 

0241 

39 



RETURN 

RTS 










TSC 6380 RELOCfiTOR 


TSC MNEMONIC ASSEMBLER PAGE £ 






* INPUT 

1 HEX 

CHARACTER 


02*} 2 

8D 

DE 


IN1HEX 

BSR 

INCH 

GET CHARACTER 

0244 

80 

47 


IN1HX1 

SUB R 

#*4? 

IS IT VALID? 

0246 

28 

0D 



BPL 

INERR 


0248 

8B 

06 



ADD R 

#6 


024fl 

28 

04 



BPL 

IN1HX2 


0240 

80 

07 



ADD fl 

#7 


024E 

28 

05 



BPL 

INERR 


0250 

83 

08 


IN1HX2 

ADD fl 

#10 


0252 

23 

01 



BMI 

INERR 


0254 

39 




RTS 


IF SO/ RETURN 

0255 

31 



INERR 

INS 


IF NOT/ ERROR 

0256 

31 




INS 



025? 

7D 

02 

0? 


TST 

PL8Y 

IS TAPE ON? 

025A 

2? 

05 



BEQ 

INERR2 


025C 

31 




INS 



025D 

31 




INS 



025E 

7E 

02 

FR 


JMP 

ERROR 

IF SO/ TRPE ERROR 

0261 

CE 

06 

88 

INERR2" 

LDX 

#WHAT 

ELSE REPORT KEY ERROR 

0264 

8D 

05 



BSR 

PDRTfl 


0266 

29 

02 



BR8 

INflDDR- 

TRY AGRIN 
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* INPUT 

NUMBER 

TO X REGISTER 

0268 

8D 

BF 


PIN8DD 

BSR 

PSTRNG 

PRINT STRING FIRST 

0268 

7F 

02 

09 

INflDDR’ 

CLR 

TEMPI 

CLEAR REGISTER 

026D 

?F 

82 

08 


CLR 

TEMP1+1 


0270 

8D 

B0 


INRDD8 

BSR 

INCH 

GET CHARACTER 

0272 

81 

0D 



CMP fl 

#*0D 

IS IT A RETURN? 

0274 

27 

14 



BEQ 

IN8DD2 

IF SO WE'RE DONE 

0276 

8D 

CC 



BSR 

IN1HX1 

ELSE/ CHECK FOR HEX 

0278 

48 




8SL 8 


SHIFT IT OVER 

0279 

48 




8SL 8 



0278 

48 




8SL 8 



027B 

48 




RSL 8 


* * - • 

0270 

06 

CD 



LD8 B 

#4 ' ' 


027E 

48 



INRDD1 

8SL 8 


AND INTO REGISTER 

027F 

79 

02 

08 


ROL 

TEMP1+1 


0282 

79 

02 

09 


ROL 

TEMPI 


0285 

58 




DEC B 



0286 

26 

F6 



BNE 

IN8DD1 


0288 

29 

E6 



BRA 

IN8DD3 

GO GET RNOTHER 

028R 

FE 

02 

09 

IN8DD2 

LDX 

TEMPI 


028D 

39 




RTS 




’. 



* INPUT 

2 HEX 

DIGITS 


028E 

8D 

B2 


IN2HEX 

BSR 

IN1HEX 

GET 1ST DIGIT 

0290 

48 




RSL fl 


SHIFT IT OVER 

0291 

48 




8SL ft 



0292 

43 




flSL R 



0293 

48 




8SL fl 
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0294 

16 




TRB 



S2VE IT 

0295 

8D 

28 



BSR 


IN1HEX 

GET 2ND CH2RRCTER 

02?? 

IB 




2BR 



RDD IN FIRST 

0293 

16 




TRB 




0299 

F0 

82 

0B 


2DD 

B 

TEMP2 

ADD TO CHECKSUM 

029C 

F? 

02 

68 


ST2 

B 

TEMP2 


029F 

39 




RTS 








* LORD 

2 MIKBUG FORMftT 

TRPE 

0220 

86 

3C 


LORD 

LD2 

2 

#$3C 

SETUP CONTROL PI2 

0222 

B? 

80 

0? 


ST2 

2 

$808? 


0225 

CE 

05 

B1 


LDX 


#TfiPEON 

PRINT CONTROL CHPS. 

0228 

8D 

81 



BSR 


PDRTB 


0222 

BD 

02 

22 

L02D1 

JSR 


INCH 

GET CHARACTER 

028D 

81 

53 



CMP 

2 

#'S 

IS IT RN 'S'? 

022F 

26 

F9 



BNE 


L02D1 

LOOP IF NOT 

0261 

BD 

02 

22 


JSR 


INCH 

GET CHRR2CTER 

0264 

81 

39 



CMP 

2 

#'9 

IS IT 2 'S'? 

0266 

27 

5D 



BEQ 


L0RD4 

IF SO WE'RE DONE 

0268 

80 

31 



SUB 

R 

3'1 

COMPARE TO 2 '1' 

0262 

26 

EE 



BNE 


LC2D1 

LOOP IF NOT EQUAL 

026C 

B? 

02 

0B 


STR 

2 

TEMP2 

CLEAR CHECKSUM 

026F 

8D 

CD 



BSR 


IN2HEX 


02C1 

89 

02 



SUB 

2 

$2 

GET BYTE COUNT - 2 

02C3 

B? 

02 

0C 


STR 

2 

TEMP2+1 

SAVE IT 

02C6 

8D 

C6 



BSR 


IN2HEX 

GET LORD ADDRESS 

02C8 

B? 

02 

09 


STR 

2 

TEMPI 


02CB 

8D 

Cl 



BSR 


IN2HEX 


02CD 

B7 

02 

02 


STR 

2 

TEMP1+1 


02D0 

FE 

02 

09 


LDX 


TEMPI 


02D3 

BD 

05 

82 


JSR 


C-MPRRE 

COMPARE OLDPTR 

02D6 

22 

0E 



BHI 


L02D2 

JUMP IF OUTSIDE RANGE 

02D8 

FE 

02 

17 


LDX 


OBJEND 


02DB 

BD 

05 

90 


JSR 


CMPX 

COMPARE ADDRESS & OBJEND 

02DE 

23 

06 


.... 

BLS 


L02D2 

JUMP IF OUTSIDE RANGE 

02E0 

CE 

02 

0F 


LDX 


#CMPREG 

IF WITHIN RRNGEl* 

02E3 

BD 

05 

22 


JSR 


2DD0FF 

RDD IN OFFSET 

02E6 

FE 

02 

0F 

L02D2 

LDX 


CMPREG 

GET FINAL ADDRESS 

02E9 

8D 

23 


L02D25 

BSR 


IN2HEX 

GET A BYTE 

02EB 

72 

02 

0C 


DEC 


TEMP2+1 

DEC. BYTE COUNT 

02EE 

27 

05 



BEQ 


LORDS 

EXIT IF = 0 

G2F0 

27 

00 



STR 

R 

0, X 

ELSE STORE BYTE 

02F2 

08 




INX 




02F3 

20 

F4 



BR2 


L0RD25 

LOOP UNTIL DONE 

02F5 

?C 

02 

08 

L02D3 

INC 


TEMP2 

IS CHECKSUM RIGHT? 

02F3 

27 

B0 



BEQ 


LORD1 

IF SO, GET NEXT RECORD 

02F2 

8D 

19 


ERROR 

BSR 


L0RD4 

ERROR. . . TURN OFF TRPE 

02FC 

8D 

26 



BSR 


DELRY 

PAUSE AWHILE 

02FE 

CE 

06 

90 


LDX 


fcERR 


0301 

BD 

02 

29 


JSR 


PSTRNG 

REPORT ERROR 

0394 

BD 

02 

22 

TRY2G 

JSR 


INCH 

GET RESPONSE 

0397 

81 

59 



CMP 

2 

#'Y 


0309 

27 

07 



BEQ 


L0RD.35 

IF YES, TRY AGAIN 








TSC 6800 RELOCATOR 


TSC MNEMONIC ASSEMBLER PAGE 4 


030B 

81 

4E 



CMP 

R 

#'N 


030D 

26 

F5 



BNE 


TRVRG 


030F 

7E 

02 

25 


JMP 


MONITR 

IF NO, EXIT PROGRAM 

0312 

7E 

02 

R0 

L0RD35 

JMP 


LORD 


0315 

86 

34 


L0RD4 

LDR 

fl 

#$34 

RESET CONTROL PIR 

0317 

B7 

80 

07 


STR 

R 

$3007 


031R 

CE 

05 

B6 


LDX 


#TRP0FF 

PRINT CONTROL CHARS. 

031D 

BO 

02 

22 


JSR 


PDATfl 


0320 

BD 

02 

36 


JSR 


PCRLF 


0323 

39 




RTS 




- 




* DELRV 

ROUTINE 


0324 

CE 

FF 

FF 

DELRV 

LDX 


#$FFFF 


0327 

09 



DELRV1 

DEX 


DELRV AWHILE 

0328 

08 




INX 




0329 

09 




DEX 




032R 

08 




INX 




032B 

09 




DEX 




032C 

26 

F9 


t - 

BNE 


DELRV1 


032E 

39 




RTS 






# 


★ START 

OF MAIN PROGRAM 


032F 

BD 

02 

36 

BEGIN 

JSR 


PCRLF 

PRINT 2 LINE FEEDS 

0332 

BD 

02 

36 


JSR 


PCRLF 


0335 

7F 

e2 

0S 


CLR 


TAPE 

CLEAR FLAGS 

0338 

7F 

02 

08 


CLR 


FIXREF 

... .• 

033B 

7F 

02 

07 


CLR 


PLflV 


033E 

CE 

06 

RF 


LDX 


#DRBEG 

SETUP DIRECT POINTER 

0341 

FF 

02 

11 


STX 


DRCPTR 


0344 

CE 

85 

C2 


LDX 


#INTRQ 


034? 

BD 

02 

29 


JSR 


PSTRNG 

PRINT INTRO MESSAGE 

034R 

BD 

02 

28 


JSR 


PNEXTS 


034D 

CE 

05 

Efl 


LDX 


#BEGflDR 


0350 

BD 

02 

63 

• ■ 

JSR 


PINADD 

GET BEGIN ADDRESS. 

0353 

FF 

02 

13 


STX 


OLDPTR 


0356 

FF 

02 

19 


STX 


RGBEG 

SET RRNGE BEGIN 

0359 

CE 

05 

Ffl 


LDX 


#ENDRDR 


035C 

BD 

02 

68 


JSR 


PINfiDD 

GET END ADDRESS 

035F 

FF 

02 

17 


STX 


OBJEND 


0362 

FF 

02 

12 


STX 


RGEND 

SET RRNGE END 

0365 

CE 

06 

0fl 


LDX 


#NEWBG 


0368 

BD 

02 

68 


JSR 


PIHRDD 

GET NEW BEGIN ADDRESS 

036B 

FF 

02 

15 


STX 


NEWPTR 


036E 

B6 

02 

16 


LDR 

fl 

NEWPTR+1 

CALCULRTE OFFSET 

0371 

B0 

02 

14 


SUB 

R 

OLDPTR+1 


0374 

B7 

02 

IE 


STR 

fl 

OFFSTR 


0377 

B6 

02 

15 


LDR 

R 

NEWPTR 


037R 

B2 

02 

13 


SBC 

R 

OLDPTR 


037D 

B7 

02 

ID 


STR 

R 

OFFSTL 


0380 

CE 

06 

3E 


LDX 


#FIXRFS 


0383 

BD 

02 

29 


JSR 


PSTRNG 

ASK TO FIX REFERENCES 

0386 

BD 

ea 

22 


JSR 


INCH 

GET RESPONSE 
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0389 

81 

4E 



CMP 

8 

#'N 


0338 

27 

03 



BEQ 


LDFRTP 


038D 

7C 

02 

08 


INC 


FIXREF 

IF YES, SET FL8G 

0399 

CE 

06 

18 

LDFRTP 

LDX 


4T8PSTR 


0393 

B0 

02 

29 


JSR 


PSTRNG 

LORDING FROM TAPE? 

0396 

B0 

02 

22 


JSR 


INCH 

GET RESPONSE 

0399 

81 

59 



CMP 

8 

#'Y. 


0393 

27 

83 



BEQ 


LDFRT1 


039D 

7E 

04 

26 


JMP 


N0T8PE 

IF NOT, JUMP AHEAD 

03fl8 

70 

02 

06 

LDFRT1 

INC 


T8PE 

IF SO, SET TAPE FLAG 

0383 

7C 

02 

07 


INC 


PL8V 


0386 

B0 

02 

80 


JSR 


LORD 

GO LOAD TAPE 

0389 

7F 

02 

07 


CLR 


PL8Y 


038C 

B0 

03 

24 


JSR 


DEL8Y 

PAUSE AWHILE 

03RF 

CE 

06 

2B 


LDX 


#LQRDED 


03B2 

B0 

02 

29 


JSR 


PSTRNG 

REPORT LOAD COMPLETE 

03B5 

B0 

02 

22 

WRIT 

JSR 


INCH 

GET A CHARACTER 

03B8 

81 

20 



CMP 

8 

##20 


03B8 

26 

F9 



BNE 


WRIT 

BUT ONLY ACCEPT 8 SPACE 

03BC 

70 

02 

03 


TST 


FIXREF 

FIXING REFERENCES? 

03BF 

26 

03 



'BNE 


T8PFIX 


03C1 

7E 

02 

25 


JMP 


MCNITR 

IF NOT, EXIT PROGRAM 

03C4 

FE 

02 

15 

TAPFIX 

LDX 


NEWPTR 


03C7 

FF 

02 

13 


STX 


OLDPTR 

IF SO, FIX OLDPTR 

0308 

CE 

02 

17 


LDX 


#OBJEND 


03CD 

B0 

05 

82 


JSR 


RDD0FF 

AND OBJECT END 





* ENTER 

DIRECT 

DRTfl BLOCKS ' 

0300 

CE 

06 

8F 

DRBLKS 

LDX 


#DRBEG 


03D3 

FF 

02 

0D 


STX 


TEMP3 

SAVE DIRECT BEGIN 

03D6 

CE 

06 

4F 


LDX 


#DRCTBK 


0309 

BD 

02 

29 


JSR 


PSTRNG 

ANY DIRECT RELOCATES? 

030C 

BO 

02 

22 


JSR 


INCH 


030F 

81 

4E 



CMP 

8 

#'N 


03E1 

26 

05 



BNE 


DRBLK1 

IF SO GO GET THEM 

03E3 

CE 

FF 

FF 


LDX 


#*FFFF 


03E6 

28 

63 



BRR 

• 

DIFFRCT 

IF NOT, JUMP 8HERD 

03E8 

B0 

02 

36 

DRBLK1 

JSR 


PCRLF 


03EB 

CE 

05 

E8 


LDX 


#8EGRDR 


03EE 

B0 

02 

68 


JSR 


PIN8DD 

GET BLOCK BEGIN 

03F1 

8C 

FF 

FF 


CPX 


#$FFFF 

FINISHED? 

03F4 

27 

55 



BEQ 


DIFFRG 

IF SO, JUMP 8HE8D 

03F6 

80 

08 



BSR 


ENTER 

PUT RDDRESS ON STACK 

03F8 

CE 

05 

F8 


LDX 


#ENDRDR 


03FB 

B0 

02 

68 


JSR 


PINRDD 

GET BLOCK END 

03FE 

80 

02 



BSR 


ENTER 

PUT IT ON STRCK 

0400 

20 

E6 



BRR 


DRBLK1 

LOOP BACK 

0402 

70 

02 

06 

ENTER 

TST 


TAPE 

LORDED FROM TAPE? 

0405 

27 

09 



BEQ 


ENTER0 

IF NOT GO RHEAD 

0407 

CE 

02 

09 


LDX 


#TENP1 


0408 

BD 

05 

82 


JSR 


8DD0FF 

IF SO, ADD OFFSET 

040D 

FE 

02 

09 


LDX 


TEMPI 


0410 

FF 

02 

0B 

ENTER0 

STX 


TEMP2 

SAVE RDDRESS 
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0413 

FE 

02 

0D 


LDX 

TEMP3 

POINT TO DIRECT STACK 

0416 

B6 

02 

0B 


LDft ft 

TEMP2 

PUT ADDRESS ON STACK 

0419 

R7 

00 



STR R 

0, X 


041B 

B6 

02 

0C 

• 

LDR R 

TEMP2+1 


041E 

fl7 

01 



STR fl 

1/ X 


0420 

08 



ENTER1 

INX 


FIX DIRECT STACK PTR. 

0421 

09 




INX 



0422 

FF 

02 

00 


STX 

TEMP3 


0425 

39 




RTS 



0426 

70 

02 

08 

NOTflPE 

TST 

FIXREF 

FIXING REFERENCES? 

0429 

26 

R5 



BNE 

DRBLKS 

IF SO, GO ENTER DIRECTS 

0428 

CE 

00 

00 


LDX 

#$0000 

IF NOT, MAKE THE 

042E 

FF 

06 

OF 


STX 

DRBEG 

ENTIRE RAM SPACE INTO 

0431 

CE 

FF 

FF 


LDX 

#$FFFF 

R DIRECT RELOCATE BLOCK 

0434 

FF 

06 

B1 


STX 

DRBEG+2 

- 

0437 

FF 

06 

B3 


STX 

DRBEG+4 


043ft 

20 

39 



BRR 

LOOP 

STRRT RELOCATION 





* ROUTINE TO INCREMENT 

POINTERS 

043C 

FE 

02 

15 

INCPTR 

• LDX 

NEWPTR 

. 

043F 

08 




INX 


INCREMENT NEU POINTER 

0440 

FF 

02 

15 


STX 

NEWPTR 


0443 

FE 

.02 

13 


LOX 

OLDPTR 


0446 

08 




INX 


INCREMENT OLD POINTER 

0447 

FF 

02 

13 


STX _ 

OLDPTR 


044ft 

39 




; RTS 


' •' ... " "• ‘ .. - 





* CHftNGE REFERENCE RftNGE ROUTINE 

044B 

8D 

C3 


OIFFRG 

BSR 

ENTERS 

SET DIRECT STACK END 

044D 

CE 

06 

50 


LOX 

^CHANGE 


0450 

BD 

02 

29 


JSR 

PSTRNG 

ASK TO CHANGE RANGE 

0453 

BO 

02 

22 


JSR 

INCH 

GET RESPONSE 

0456 

81 

59 



CMP fl 

#'V 


0458 

26 

12 


* 

BNE ... 

LOOP 

IF NO, START RELOCATION 

045ft 

CE 

05 

Eft 


LDX 

SBEGRDR 

* 

045D 

BD 

02 

68 


■JSR 

PINRDO 

GET RANGE BEGIN 

0460 

FF 

02 

19 


STX 

RGBEG 


0463 

CE 

05 

Fft 


LDX 

#ENDADR 


0466 

BO 

02 

68 


JSR 

PINRDO 

GET RANGE END 

0469 

FF 

02 

13 


STX 

RGEND 






★ MAIN 

RELOCATION LOOP 


046C 

FE 

0«. 

17 

LOOP 

LOX 

OBJEND 

IS OLDPTR > 03JEND? 

046F 

BO 

05 

Sfl 


JSR 

CMPRRE 


0472 

23 

03 



BLS 

L00P1 


0474 

7E 

05 

4 v 


JMP 

DONE 

IF SO WE'RE DONE 

0477 

FE 

02 

11 

L00P1 

LOX 

DRCPTR 

IS THIS A DIRECT BLOCK? 

047ft 

EE 

09 



LDX 

0. X 


047C 

BD 

05 

8fi 


JSR 

CMPRRE 


047F 

25 

03 



BCS 

L00P2 


0481 

7E 

05 

IE 


JMP 

DIRECT 

IF SO, GO MOVE DIRECT 
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0484 

86 

00 


L00P2 LDR 

8 

0, X 

MOVE OPCODE 

0486 

FE 

02 

15 

LDX 


NEWPTR 


0489 

87 

00 


ST8 

8 

0, X 


0488 

FE 

02 

13 

LDX 


OLDPTR 


048E 

84 

30 


8ND 

8 

#$30 

CHECK FOR 3 BVTE INST. 

0490 

81 

38 


CMP 

8 

#$30 


0492 

27 

29 


BEQ 


M8VBE3 

COULD BE 3 BVTES 

0494 

86 

00 


LDR 

8 

0, X 


0496 

81 

Cc 


CMP 

8 

#*CE 

CHECK FOR LDX # 

0498 

27 

29 


BEQ 


THREE 


0498 

81 

8C 


CMP 

8 

#$3C 

CHECK FOR CPX # 

049C 

27 

25 


BEQ 


THREE 


049E 

81 

8E 


CMP 

8 

#$8E 

CHECK FOR LDS # 

04R0 

27 

21 


BEQ 


THREE 


0482 

81 

5F 


CMP 

8 

#$5F 

LOOK FOR 2 BVTE INST. 

04fi4 

22 

0B 


BHI 


TWO 


0486 

84 

F0 


8ND 

8 

#$F0 

LOOK FOR 1 BVTE INST. 

0488 

81 

20 


CMP 

8 

#$20 


0488 

27 

05 


BEQ 


TWO 






* ONE BYTE INSTRUCTION 


048C 

BD 

04 

3C 

ONE JSR 


INCPTR 


048F 

20 

BB 


BRR 


LOOP 

GET NEXT INSTRUCTION 





*TWO BVTE INSTRUCTION 


04B1 

BD 

04 

3C 

TWO JSR 


INCPTR 

POINT TO 2ND BVTE 

04B4 

R6 

00 


LDR 

8 

0, X 

MOVE IT 

04B6 

FE 

02 

15 

LDX 


NEWPTR 


04B9 

87 

00 


STR 

8 

0, X 


04BB 

20 

EF 


BRR 


ONE 

NEXT INSTRUCTION 

04BD 

86 

00 


MRVBE3 LDR 

8 

0; X 

CHECK 3 OR 1 BVTE INST. 

04BF 

85 

C0 


BIT 

8 

#$C0 


04C1 

27 

E9 


BEQ 


ONE 



* THREE BVTE INSTRUCTION 


04C3 

BD 

04 

3C THREE 

JSR 

INCPTR 

POINT TO REFERENCE 

04C6 

FE 

02 

19 

LDX 

RGBEG 

IS 

IT BELOW R8NGE BEG? 

04C9 

FF 

02 

0F 

STX 

CMPREG 



04 CC 

FE 

02 

13 

LDX 

OLDPTR 



04CF 

EE 

00 


LDX 

0/ X 



04D1 

BD 

05 

90 


CMPX 



04D4 

25 

3C 


BLO 

NOFFST 

IF 

SO, NO OFFSET 

04DS 

FE 

02 

IB 

LDX 

RGEND 

IS 

IT ABOVE RANGE END? 

04D9 

FF 

e2 

0F 

STX 

CMPREG 



04DC 

FE 

02 

13 

LDX 

OLDPTR 



04DF 

EE 

00 


LDX 

0, X 



04E1 

BD 

05 

98 

JSR 

CMPX 



04E4 

22 

2C 


BHI 

NOFFST 

IF 

SO, NO OFFSET 

04S6 

FE 

02 

13 

LDX 

OLDPTR 



04E9 

e9 



DEX 
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04ER 

R6 

09 



LDR 

fl 

0/ X 

GET OPCODE 

04EC 

08 




INX 




04ED 

81 

7E 



CMP 

fl 

#$?E 

IS IT fl JUMP? 

04EF 

27 

0R 


. 

BEQ 


OFFSET 

IF SO/ DO OFFSET 

04F1 

84 

F0 



AND 

fl 

#$F0 

CHECK FOR PAGE 0 REF. 

04F3 

81 

70 



CMP 

fl 

H$?Q 


04F5 

26 

04 



BNE 


OFFSET 


04F7 

R6 

00 



LDR 

R 

0/ X 


04F9 

27 

10 



BEQ 


N0FST1 

IF PAGE 0/ NO OFFSET 

04FB 

R6 

01 


OFFSET 

LDR 

fl 

1/ X 

ADD OFFSET TO REFERENCE 

04FD 

BB 

02 

IE 


ADD 

fl 

OFFSTR 


0509 

16 




TR8 




0501 

R6 

00 



LDR 

fl 

0/ X 


0503 

B9 

02 

ID 


RDC 

fl 

OFFSTL 


0596 

FE 

82 

15 

NEXT 

LDX 


NEWPTR 

STORE RESULT . 

0509 

R7 

00 



STR 

fl 

0/ X 


0508 

E7 

01 



STR 

B 

1/ X 


050D 

BD 

04 

3C 


JSR 


INCPTR 


0510 

20 

9fl 



BRR 


ONE 

GET NEXT INSTRUCTION 

0512 

FE 

62 

13 

NOFFST 

LDX 


OLDPTR 

NO OFFSET ADDED 

0515 

R6 

00 


f 

* LDR 

fl 

0/ X 


0517 

E6 

01 


N0FST1 

LDR 

B 

1/X 


0519 

20 

E8 



BRR 


NEXT 




# 


* MOVE 

DIRECT 

DATA BLOCK 


051B 

BD 

04 

30 

DRECT0 

JSR 


INCPTR 

BUMP POINTERS 

■*' 051E 

R 6 

00 


DIRECT 

LDR 

fl 

0/ X 

MOVE ONE BVTE 

0520 

FE 

02 

15 


LDX 


NEWPTR 


0523 

R7 

00 



STR 

R 

0/ X 


0525 

FE 

02 

17 


LDX 


OBJEND 


0528 

BD 

05 

8R 


JSR 


CMPflRE 

END OF PROGRAM? 

052B 

27 

17 



BEQ 


DONE 

IF SO/ WE'RE DONE 

—-?• 0520 

FE 

02 

11 


LDX 


DRCPTR 

GET BLOCK END ADDRESS 

0530 

EE 

02 



LDX 


2/ X 


0532 

BD 

05 

8R 


JSR 


CMPflRE 

RRE WE THERE? 

0535 

26 

E4 


. 

BNE 


DRECT3 

IF NOT/ MOVE ANOTHER 

—0537 

FE 

02 

11 


LDX 


DRCPTR 

FIXUP DIRECT POINTER 

053R 

08 




INX 




053B 

08 




INX 




0530 

08 




INX 




0530 

08 




INX 




—=> 053E 

FF 

02 

11 


STX 


DRCPTR 


0541 

7E 

04 

RC 


JMP 


ONE 

GO TO NORMAL RELOCATION 





* CODE 

IS RELOCATED/ CHECK FDB'S 

P' 

0544 

7D 

02 

08 

DONE 

TST 


FIXREF 

FIXING REFERENCES? 

0547 

27 

2F 



BEQ 


D0NE2 

IF NOT/ RLL DONE 

0549 

5F 




CLR 

B 



054R 

CE 

06 

84 


LDX 


(fFXFBDS 


054D 

BD 

02 

29 


JSR 


PSTRNG 

RSK TO FIX FDB'S 

0559 

BD 

02 

22 


JSR 


INCH 

GET RESPONSE 

6353 

81 

4E 



CMP 

fl 

tt'N 




■ 
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0555 

27 

21 



BEQ 

D0NE2 

IF N, RLL DONE 

055? 

81 

59 



CMP 0 

#'Y 


0339 

27 

01 



BEQ 

DONE0 

IF V, JUMP RHERD 

0558 

5C 




‘ INC B 


ELSE SET FLAG 

055C 

37 



DONE0 

PSH B 


SRVE FLRG 

055D 

CE 

03 

F0 


LDX 

#BEGRDR+6 


0560 

BD 

02 

69 


JSR 

PIN0DD 

GET FDB ADDRESS 

0563 

33 




PUL B 


RESTORE FLRG 

0564 

80 

FF 

FF 


CPX 

#$FFFF 

RNV MORE FOB'S? 

0567 

2? 

0F 



BEQ 

D0NE2 

IF NOT, RLL DONE 

0569 

5D 




TST B 


IS FOB WITHIN RANGE? 

0560 

26 

08 



BNE 

DONE1 

IF NOT, NO OFFSET 

056C 

CE 

02 

09 


LDX 

#TEMP1 

1 

056F 

8D 

31 



B3R 

RDDOFF 

ELSE ADD IN OFFSETj 

0571 

FE 

02 

09 


LDX 

TEMPI 


0574 

8D 

2C 


DONE1 

BSR 

RDDOFF 

FIXUP THE FDB ® 

0576 

20 

E4 



BRR 

D0NE9 

RNV MORE? • 



. •. 


* RLL 

FINISHED 

ROUTINE 

• 

0578 

BD 

02 

36 

D0NE2 

JSR 

PCRLF 


057B 

BD 

02 

36 


JSR 

PCRLF 


057E 

CE 

06 

6B 


LDX 

#FINE 


0581 

BD 

02 

29 


JSR 

PSTRNG 

REPORT COMPLETION 

0584 

BD 

02 

36 


JSR 

PCRLF 

• 

0587. 

7E 

82 

25 


JMP 

MONITR 

EXIT THE PROGRAM 





* TWO 

BVTE COMPRRE ROUTINE 

0580 

FF 

02 

OF 

CMP0RE 

STX 

CMPREG 


058D 

FE 

02 

13 


LDX 

OLDPTR 


0590 

FF 

02 

09 

CfIPX 

STX 

TEMPI 

COMPARE CMPREG TO TEf 

0593 

B6 

92 

09 


LDfl R 

TEMPI 


0596 

B1 

02 

0F 


CMP 0 

CMPREG 


0599 

26 

06 



BNE 

CMPX1 


059B 

B6 

02 

00 


- LD0 0 

TEMP1+1 

v 

059E 

B1 

02 

10 


CMP 0 

CMPREG+1 


0501 

39 



CMPX1 

RTS 







★ ROUTINE TO ODD IN OFFSET 

8502 

06 

01 


RDDOFF 

LDR 0 

1, X 

GET RIGHT HALF 

0504 

BB 

02 

IE 


0DD 0 

OFFSTR 

RDD OFFSET RIGHT 

0507" 0? 

01 



ST0 0 

1, X 


0509 

RS 

09 



LDR 0 

0, X 

GET LEFT HALF 

0503 

B9 

02 

ID 


0DC 0 

OFFSTL 

ADD OFFSET LEFT 

050E 

0? 

00 



ST0 0 

0 , X 


0580 

39 




RTS 







* STRINGS 



05B1 

09 



TRPEGN 

FCB 

0/ 0, 0.. 0 j 4 


05B2 

09 

00 
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05B4 

00 

04 




0586 

00 


TRPOFF 

FOB 

0/ 0/ 0, 0/ 4 

05B? 

00 

00 




05B9 

08 

04 

. 



05BB 

0D 


CRLF 

FOB 

$D, $A, 0. 0/ 0> 0, 4 

05BC 

0A 

00 




05BE 

00 

00 




0500 

00 

04 




0502 

£fl 


INTRO 

FCC 

'* TSC 6800 RELOCATOR 

0503 

20 

54 




0505 

53 

43 




0507 

20 

36 




0509 

38 

30 




05CB 

30 

20 




05CD 

52 

45 




05CF 

40 

4F 




05D1 

43 

41 



* 

05D3 

54 

4F 




05D5 

52 

20 




05D7 

2A 





05D8 

04 



. FOB 

4 

05D9 

50 



FCC 

'PRESENT PROGRAM:' 

05DA 

52 

45 




05DC 

53 

45 




05DE 

4E 

54 




05E0 

28 

50 




05E2 

52 

4F 

- ;;; ; _ 

•. - :.r 


05E4 

47 

52 - 

- — r - -- 


• * : * . \ . 

05E6 

41 

4D 




05E8 

3fl 





05E9 

04 



FOB 

4 

05EA 

42 


BEGADR 

FCC 

'BEGIN ADDRESS? ' 

05E3 

45 

47 




05EO 

49 

4E 




05EF 

20 

41 




05F1 

44 

44 

. 



05F3 

52 

45 

' 

- 

* 

05F5 

53 

53 




05F7 

3F 

20 



. 

05F9 

04 



FOB 

4 

05Ffl 

£0 


ENDADR 

FCC 

' END ADDRESS? ' 

05FB 

28 

45 . 




05FD 

4E 

44 




05FF 

29 

41 



* 

0601 

44 

44 




0603 

52 

45 



* 

0605 

53 

53 




0607 

3F 

£0 




0609 

04 



FOB 

4 

068R 

20 


NEWSG 

FCC 

' MOVE TO? ' 

060B 

20 

20 




060D 

20 

20 




069F 

29 

4D 




0611 

4F 

56 
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0613 

45 

20 




0615 

54 

4F 




061? 

3F 

20 




0619 

04 



FCB 

4 

0618 

4C 


TRPSTR 

FCC 

''LORD FROM TRPE? ' 

0619 

4F 

41 




061D 

44 

20 




061F 

46 

52 




0621 

4F 

4D 




0623 

20 

54 




0625 

41 

50 




0627 

45 

3F 




0629 

£0 





0628 

04 



FCB 

4 

062B 

2E 


LORDED 

FCC 

. . LORD COMPLETED. ' 

062C 

2E 

2E 




06^E 

4C 

4F 




0639 

41 

44 




0632 

29 

43 




0634 

4F 

4D 




0636 

58 

4C 

. t • 


. 

0638 

45 

54 




0638 

45 

44 




063C 

2E 





063D 

©4 



FCB 

4 

063E 

46 


FIXRFS 

FCC 

'FIX REFERENCES? ' 

063F 

49 

53 




0641 

20 

52 



... 

0643 

45 

46 


* 


0645 

45 

52 




0647 

45 

4E 




0649 

43 

45 




064B 

53 

3F 




0640 

20 





064E 

04 



FCB 

4 

. 064F 

44 


DRCTBK 

FCC 

'DRTR BLOCKS? ' 

0650 

41 

54 



. • ‘ ‘ ' 

0652 

41 

20 


- • 


0654 

42 

4C 




0656 

4F 

43 




0658 

4B 

53 




065R 

3F 

20 




065C 

04 



FCB 

4 

065D 

41 


CHANCE 

FCC 

'RLTER RRNGE? ' 

065E 

4C 

54 




0663 

45 

52 




0662 

20 

52 



* 

0664 

41 

4E 




0666 

47 

45 




0668 

3F 

20 




0668 

04 



FCB 

4 

066B 

52 


FINE 

FCC 

'RELOCRTION COMPLETED 

0S6C 

43 

4C 




©66E 

4F 

43 
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6670 

41 

54 




0672 

49 

4F 




0674 

4E 

20 




0676 

43 

4F 

• 



0678 

4D 

50 




0670 

4C 

45 




067C 

54 

45 




067E 

44 

2© 




0680 

21 

21 




0682 

21 





0683 

04 



FCB 

4 

0684 

46 


FXFBDS 

FCC 

'FIX FDB' ! 

0685 

49 

58 




0687 

20 

46 




0689 

44 

42 




068B 

27 



FCB 

*27. $53/ $3F/ $20/ 4 

068C 

53 

3F 




068E 

20 

04 




0690 

4C 


ERR 

FCC 

'LOAD ERROR! TRV AGAIN? 

0691 

4F 

41 




0693 

44 

20 




0695 

45 

52 




0697 

52 

4F 




0699 

52. 

21 




069B 

20 

20 




069D 

54 

52 




069F 

59 

20 

.. . .... . - 

• /• - — ■ . 

7 - - •• v- - . : •• . 

-0601 

41 

47 

. - • r•- 

> 

. ..... ; ‘ - ;; 

0603 

41 

49 




0605 

4E 

3F 



i- 

0607 

20 




0608 

07 



FCB 

7/ 4 

0609 

04 





0600 

07 


WHAT 

FCB 

7/ $20/ $3F/ $20/ 4 

060B 

20 

3F 




060D 

20 

04 

- . 



060F 



DRBEG 

RMB 

*20 ' . " . 7 7 ” 



END 

NO ERROR<S> DETECTED 


SVNBOL TRBLE: 


RDDOFF 0502 
CMPREG 028F 
DELfiVl 0327 
DONE1 0574 
DRCPTR 02.11 
ENTERS 0418 
FIXREF 0208 
IN1HX2 0250 
IN0DDR 0260 


BEGflDR 05ER 
CMPX 0590 
DIFFRG 044B 
D0NE2 0578 
DRCTBK 064F 
ENTER1 0420 
FIXRFS G63E 
IN2MEX 028E 
INCH 0222 


BEGIN 032F 
CMPXi 0501 
DIRECT 051E 
DR3EG 060F 
DRECT0 051B 
ERR 0690 
FXF3DS 8684 
IN’nDOG 8278 
INCPTR 043C 


CH0NGE 065D 
CRLF 05BB 
DONE 0544 
DRBLK1 03E8 
END0DR 05FR 
ERROR 02F0 
IN1HEX 0242 
IN0DD1 027E 
IHERR 0255 


CMPPRE 0530 
DEL0V 0324 
DCNE8 055C 
DRBLKS 03D0 
ENTER 0402 
FINE 0663 
IN1HX1 0244 
I.N'nDD2 0280 
INERR2 0261 
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INTRO 05C2 
L0RD2 02E6 
LORDED 062B 
MONITR 0225 
NOFST1 051? 
OFFSTR 021E 
PDRTR 0228 
RETURN 0241 
TRPEON 9581 
TEMP2 020B 
WRIT 03B5 


LDFRT1 03R0 
L0RD25 02E9 
LOOP 046C 
NEW8G G60R 
NOTRPE 0426 
OLDPTR 0213 
PINfiDD G268 
RGBEG 0219 
TAPFIX 03C4 
TEMP3 020D 
WHRT 06RR 


LDFRTP 0390 
L0RD3 02F5 
LOOP1 047? 
NEWPTR 0215 
03JEND 0217 
ONE 04RC 
PLRV 0207 
RCEND 021B 
TRPOFF 0586 
THREE 04C3 


LORD 

02R0 

L0AD35 

0312 

L00P2 

0484 

NEXT 

0506 

OFFSET 

04F3 

OUTCH 

021F 

PNEXTS 

0228 

START 

0200 

TRPSTR 

061R 

TRVRG 

0304 


LORD1 02RR 
L0RD4 0315 
MRVBE3 643D 
NOFFST 0512 
OFFSTL 021D 
PCRLF 0236 
PSTRNG 0229 
TRPE 0236 
TEMPI 8299 
TWO 0431 


OBJECT CODE: 

SI 09 0200 8E 0F FF 
SI 13 021F 7E El D1 
SI 13 022F 2? 10 SD 
SI 13 023F 02 09 39 
SI 13 024F 05 SB 0fl 
SI 13 025F 02 Ffl CE 
SI 13 026F 0R 8D B0 
SI 13 027F 79 02 0R 
SI 13 02-8F B2 48 48 
SI 13 029F 39 86 3C 
SI 13 02RF 26 F9 BD 
SI 13 02BF 8D CD 80 
SI 13 02CF 0fl FE 02 
SI 13 02DF 06 CE 02 
SI 13 02EF 05 R7 00 
SI 13 02FF 06 90 BD 
SI 13 03GF ?E 02 25 
SI 13 031F 2B BD 02 
SI 13 032F BD 02 36 
SI 13 033F 06 RF FF 
SI 13 034F ER BD 02 
SI 13 035F FF 02 17 
SI 13 036F 02 16 B0 
SI 13 037F ID CE 06 
SI 13 038F 08 CE 06 
SI 13 039F 26 7C 02 
SI 13 03RF CE 06 2B 
SI 13 038F 26 03 7E 
SI 13 03CF RE CE 06 
SI 13 03DF 81 4E 26 
SI 13 03EF 02 63 8C 
SI 13 03FF 92 29 E6 
SI 13 049F 09 FF 02 
SI 13 041F 01 03 88 
SI 13 042F 06 RF CE 
SI 13 043F 08 FF 02 
SI 13 044F 5D BD 02 


7E 03 2F R3 

7E El RC 7E E0 E3 08 

EC 08 20 F5 FF 02 09 

8D DE 80 47 ER 0D 8B 

2B 01 39 31 31 7D 82 

06 flfl 8D C5 20 02 8D 

81 0D 27 14 3D CC 43 

79 02 09 5R 26 F6 20 

43 43 16 SD RB IB 16 

B7 80 0? CE 05 B1 8D 

02 22 81 39 27 5D 80 

02 B7 02 0C 8D C6“ B7 

09 BD 85 8fi 22 0E FE 

0F BD 05 R2 FE 02 0F 

38 20 F4 7C 02 0B 2? 

02 29 BD 02 £2 81 59 

7E 82 R0 86 34 B7 80 
36 39 CE FF FF 09 03 
BD 02 36 7F 02 06 7F 
02 11 CE 05 C2 BD 82 
63 FF 02 13 FF 02 19 
FF 02 IB CE 06 0fl BD 
02 14 B7 02 IE B6 02 
3E BD 02 29 BD 82 £2 
Ifl BD 02 29 BD 02 22 
06 7C 02 07 BD 02 R0 
BD 02 29 BD 02 22 31 
02 25 FE 92 15 FF 02 
RF FF 62 0D CE 06 4F 
05 CE FF FF 20 63 BD 
FF FF 2? 55 8D OR CE 
7D 02 06 2? 09 CE 02 
0B FE 02 0D B6 02 0B 
FF 02 0D 39 7D 02 08 
FF FF FF 06 B1 FF 06 
15 FE 02 13 03 FF 02 
29 BD 02 22 31 59 26 


8D 0B R6 00 81 04- 84 
CE 05 BB 8D ED FE DE 
06 2fl 04 SB 07 2R 83 
07 27 05 31 31 ?E R8 
BF 7F 02 09 7F 02 46 
48 48 43 C6 04 43 E0 
E6 FE 02 09 39 8D 17 
FB 02 0B F7 02 0B FE 
81 BD 02 22 81 53 CB 
31 £6 EE B7 02 03‘ 74 
02 09 8D Cl B? 02 6E 
02 17 BD 05 90 23 00 
8D R3 7fl 02 0C 27 D4 
B0 8D 19 8D 26 CE RC 
27 0? 81 4E 26 F5 9R 
0? CE 05 B6 BD 02 D5 
09 OS 09 26 F9 39 22 
02 08 7F 02 07 CE 6fl 
29 BD 02 23 CE 05 RC 
CE 05 Ffl BD 02 63 67 
02 68 FF 02 15 B6 35 
15 B2 02 13 B7 02 78 
81 4E 2? 03 7C 02 FB 
81 59 27 03 7E 04 15 
7F 02 07 BD 03 24 50 
£0 26 F9 7D 02 08 2B 
13 CE 82 1? BD 05 8fl 
BD 02 29 BD 02 22 FB 
02 36 CE 05 ER BD 52 
05 Ffl BD 02 68 8D 72 
09 BD 05 R2 FE 02 FO 
R7 00 B6 02 0C R? E2 
26 R5 CE 00 00 FF 52 
83 20 30 FE 02 15 65 
13 39 8D C3 CE 06 FF 
12 CE 05 ER BD 02 E3 
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Si 

13 

045F 

68 

FF 

02 

19 

CE 

05 

SI 

13 

046F 

BD 

05 

8R 

•23 

03 

7E 

SI 

13 

047F 

23 

03 

7E 

03 

IE 

R6 

SI 

13 

048F 

30 

81 

30 

27 

29 

R6 

SI 

13 

049F 

8E 

27 

21 

81 

5F 

22 

SI 

13 

04RF 

20 

PB 

BD 

84 

3C 

R6 

SI 

13 

04BF 

85 

CO 

27 

E9 

BD 

04 

SI 

13 

04CF 

EE 

00 

BD 

05 

90 

25 

SI 

13 

04DF 

EE 

00 

BD 

05 

90 

22 

SI 

13 

04EF 

27 

0fl 

84 

F0 

81 

70 

SI 

13 

04FF 

IE 

16 

R6 

00 

B9 

02 

SI 

13 

050F 

3C 

20 

9R 

FE 

02 

13 

SI 

13 

051F 

00 

FE 

02 

15 

R7 

00 

SI 

13 

052F 

11 

EE 

02 

BD 

05 

8fl 

SI 

13 

053F 

02 

11 

7E 

04 

RC 

7D 

SI 

13 

054F 

29 

BD 

02 

22 

81 

4E 

SI 

13 

055F 

F0 

BD 

02 

68 

33 

8C 

SI 

13 

056F 

8D 

31 

FE 

02 

09 

8D 

SI 

13 

037F 

06 

6B 

SD 

02 

'29 

BD 

SI 

13 

058F 

13 

FF 

02 

09 

B6 

02 

SI 

13 

059F 

02 

10 

39 

R6 

01 

BB 

SI 

13 

05RF 

00 

39 

00 

00 

00 

00 

SI 

13 

05BF 

00 

00 

04 

2R 

20 

54 

SI 

13 

05CF 

4C 

4F 

43 

41 

54 

4F 

SI 

13 

05DF 

54 

20 

50 

52 

4F 

47 

SI 

13 

05EF 

20 

41 

44 

44 

52 

45 

SI 

13 

05FF 

20 

41 

44 

44 

52 

45 

SI 

13 

060F 

20 

4D 

4F 

56 

45 

20 

SI 

13 

061F 

46 

52 

4F 

4D 

20 

54 

SI 

13 

062F 

4F 

41 

44 

20 

43 

4F 

SI 

13 

063F 

49 

53 

20 

52 

45 

46 

SI 

13 

064F 

44 

41 

54 

41 

20 

42 

SI 

13 

065F 

54 

45 

52 

20 

52 

41 

SI 

13 

066F 

43 

41 

54 

49 

4F 

4E 

SI 

13 

067F 

20 

21 

21 

21 

04 

46 

SI 

13 

068F 

04 

4C 

4F 

41 

44 

20 

SI 

S9 

13 

069F 

59 

20 

41 

47 

41 

49 


PAGE 


BD 

02 

68 

FF 

02 

IB 

FE 

02 

17 

EO 

44 

FE 

02 

11 

EE 

00 

BD 

05 

3R 

F5 

FE 

82 

13 

R7 

80 

FE 

02 

13 

34 

R7 

31 

CE 

27 

29 

81 

8C 

27 

25 

81 

09 

34 

F 0 

81 

20 

27 

05 

BD 

04 

3C 

28 

FE 

02 

15 

R7 

00 

20 

EF 

R6 

00 

4R 

FE 

02 

19 

FF 

02 

0F 

FE 

02 

13 

9B 

FE 

02 

IB 

FF 

02 

0F 

FE 

02 

13 

3fl 

FE 

02 

13 

09 

R6 

00 

08 

81 

7E 

B2 

04 

R6 

80 

27 

1C 

R6 

01 

BB 

02 

EC 

FE 

02 

15 

R7 

00 

E7 

01 

BD 

C4 

D2 

00 

E6 

01 

20 

EB 

BD 

04 

3C 

R6 

94 

02 

17 

BD 

C5 

3fl 

27 

17 

FE 

02 

6B 

E4 

FE 

02 

11 

03 

08 

03 

08 

FF 

31 

03 

27 

2F 

5F 

CE 

06 

84 

BD 

02 

14 

21 

81 

59 

27 

01 

5C 

37 

CE 

05 

0F 

FF 

27 

0F 

5D 

26 

08 

CE 

02 

09 

1ft 

20 

E4 

BD 

02 

36 

BD 

02 

36 

CE 

3C 

36 

7E 

02 

25 

FF 

02 

0F 

FE 

02 

65 

B1 

02 

0F 

26 

06. 

B6 

82 

0fi 

B1 

19 

IE 

R7 

01 

R6 

00 

B9 

02 

ID 

R7 

RE 

00 

08 

00 

00 

04 

0D 

0R 

00 

00 

E0 

43 

20 

36 

33 

30 

30 

20 

52 

45 

4B 

20 

2fl 

04 

50 

52 

45 

53 

45 

4E 

E9 

41 

4D 

3R 

04 

42 

45 

47 

49 

4E 

D9 

53 

3F 

20 

04 

20 

20 

45 

4E 

44 

58 

53 

3F 

20 

84 

20 

20 

20 

20 

20 

BF 

4F 

3F 

20 

04 

4C 

4F 

41 

44 

20 

1R 

50 

45 

3F 

20 

04 

2E 

2E 

2E 

4C 

10 

50 

4C 

45 

54 

45 

44 

2E 

04 

46 

RE 

52 

45 

4E 

43 

45 

53 

3F 

20 

04 

R1 

4F 

43 

4B 

53 

3F 

20 

04 

41 

4C 

RF 

47 

45 

3F 

20 

04 

52 

45 

4C 

4F 

7ft 

43 

4F 

4D 

50 

4C 

45 

54 

45 

44 

FC 

58 

20 

46 

44 

42 

27 

53 

3F 

20 

34 

52 

52 

4F 

52 

21 

20 

20 

54 

r-52 

82 

3F 

20 

07 

04 

07 

20 

3F 

20' 

m 

.. 

* Vk 

7fl 


Ffl 

05 

00 

00 

0B 

00 

3C 

3C 

2C 

26 

ID 

F)6 

FE 

26 

02 

2? 

FF 

2C 

02 

09 

02 

04 

53 

52 

52 

53 

53 

54 

41 

4D 

45 

4C 

4E 

20 

49 

45 

4E 
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* 

TSC 

6800 RELOCRTOR 





* 

COPYRIGHT <C> 

1977 BY 





* TECHNICAL 

SYSTEMS 

CONSULTANTS, INC. 





* P. 0 . 

BOX 2574; W. LAFAYETTE, IN 47906 





* 

<317> 742- 

7599 

8209 





ORG 

*8200 

* 





* PROGRAM STRRT 


0209 

82 

0F 

FF 

START 

LDS 

ttf0FFF 

SETUP STACK 

9203 

7E 

03 

2F 


JMP 

BEGIN 

START THE PROGRAM 





* TEMPORARY STORAGE 


9206 




TAPE 

RMS 

1 

LORDED FROM TRPE FLRG 

9207 




PLAY 

RM9 

1 

RECORDER ON FLRG 

0208 




FIXREF 

RMB 

1 

FIX REFERENCES FLAG 

0209 




TEMPI 

RMB 

2 

TEMPORARY REGISTER 

0203 




TEMP2 

RMB 

2 

TEMPORARY REGISTER 

028D 




TEMP3 

RMB 

2 

TEMPORARY REGISTER 

020F. 




CMPREG 

RMB 

2 

2 BYTE COMPARE REG. 

0211 




DRCPTR 

RMB 

2 

DIRECT STACK POINTER 

0213 




OLDPTR 

RMB 

• 2 

OLD PROGRAM POINTER 

0215 




NEWPTR 

RMB 

2 

NEW PROGRAM POINTER 

0217 




OBJEND 

RMB 

2 

END OF OLD PROGRAM 

0219 




RGBEG 

RMB 

2 

RANGE BEGIN RDDRESS 

0219 




RGEND 

RMB 

2 

RANGE END ADDRESS 

021D 




OFFSTL 

RMB 

1 

LEFT HALF OFFSET 

021E 




OFFSTR 

RMB 

1 

RIGHT HALF OFFSET 





* EXTERNAL ROUTINE JUMPS 

021F 

7E 

El 

D1 

OUTCH 

JMP — 

5E1D1 

-r OUTPUT ROUTINE 

0222 

7E 

El 

0C 

INCH 

JMP - 

*E1AC 

INPUT ROUTINE 

0225 

7E 

E0 

E3 

MONITR 

JMP 

SE0E3 

EXIT ADDRESS 





* PRINT 

STRINGS 


0228 

08 



PNEXTS 

INX 



0229 

3D 

m 


PSTRNG 

BSR 

PCRLF 

PRINT CR RND LF 

0228 

86 

00 


PDATfl 

LDA A 

0, X 

GET CHARACTER 

e22D 

81 

04 



CMP A 

#4 

IS IT EOT? 

©22F 

27 

10 



BEQ 

RETURN 


0231 

8D 

EC 



BSR 

OUTCH 

OUTPUT IT 

0233 

08 




INX 



0234 

29 

F5 



BRA 

PDATR 


0236 

FF 

02 

09 

PCRLF 

STX 

TEMPI 

SAVE X REGISTER 

0239 

CE 

05 

B8 


LDX 

#CRLF 

POINT TO STRING 

023C 

8D 

ED 



BSR 

PDATA 

PRINT THE STRING 

0235 

FE 

©2 

09 


LDX 

TEMPI 

RESTORE X REGISTER 

6241 

39 



RETURN 

RTS 
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* INPUT 


1 HEX CMflRRCTER 








6242 

8D 

DE 


IN1HEX 

BSR 


INCH 

GET CHRRRCTER 


0244 

80 

47 


IN1HX1 

SUB 

A 

#34? 

IS IT VALID? 


0246 

28 

0D 



PPL 


INERR 



0248 

8B 

@6 



RDD 

B 

46 



0248 

28 

04 



BPL 


IN1HX2 



0240 

88 

0? 



HDD 

R 

#7 



024E 

28 

05 



BPL 


INERR 



0250 

83 

08 


IN1HX2 

ADD 

fl 

#10 



0252 

2B 

01 



BMI 


INERR 



0254 

39 




RTS 



IF SO, RETURN 


0255 

31 



INERR 

INS 



IF NOT, ERROR 


0256 

31 




INS 





025? 

7D 

02 

0? 


TST 


PL8V 

IS TRPE ON? 


0258 

2? 

05 



BEQ 


INERR2 



6250 

31 




INS 





025D 

31 




INS 





625E 

7E 

02 

F8 


JMP 


ERROR 

IF SO, TRPE ERROR 


0261 

CE 

06 

88 

INERR2" 

LDX 


#WHflT 

ELSE REPORT KEY ERROR 


0264 

8D 

05 



BSR 


PD8T8 



0266 

20 

02 



BRR 


INADDR- 

TRY RGRIN 




* 


* INPUT 

NUMBER 

TO X REGISTER 


0268 

8D 

BF 


PINflDD 

BSR 


PSTRNG 

PRINT STRING FIRST 


0268 

7F 

02 

09 

INRDDR- 

CLR 


TEMPI 

CLERR REGISTER 


626D 

?F 

02 

08 


CLR 


TEMP1+1 



0270 

8D 

89 


IN8DD9 

BSR 


INCH 

GET CHARACTER 


0272 

81 

0D 



CMP 

8 

#*0D 

IS IT fl RETURN? 


0274 

27 

14 



BEQ 


INRDD2 

IF SO WE'RE DONE 


0276 

8D 

CC 



BSR 


IN1HX1 

ELSE, CHECK FOR HEX 


0278 

48 




8SL 

8 


SHIFT IT OVER 


0279 

48 




8SL 

8 




0278 

48 



- 

8SL 

8 




027B 

48 




8SL 

8 


- 


027C 

C6 

04 



LDfi 

B 

#4 



627E 

48 



IN8DD1 

8SL 

8 


RND INTO REGISTER 


027F 

79 

02 

08 


ROL 


TEMP1+1 



0282 

79 

02 

09 


ROL 


TEMPI 



0285 

58 




DEC 

B 




0286 

26 

F6 



BNE 


INRDD1 



6288 

29 

E6 



BR8 


INRDD0 

GO GET RNOTHER 


0288 

FE 

02 

09 

IN8DD2 

LDX 


TEMPI 



028D 

39 


1 


RTS 









* INPUT 

2 HEX 

DIGITS 



028E 

8D 

82 


IN2HEX 

BSR 


IN1HEX 

GET 1ST DIGIT 


0299 

48 




flSL 

R 


SHIFT IT OVER 


0291 

48 




flSL 

R 




0292 

48 




flSL 

R 




0293 

48 




flSL 

R 
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0294 

16 




TR8 



SAVE IT 

0295 

8D 

RB 



BSR 


IN1HEX 

GET 2ND CHARACTER 

02?? 

IB 




RBR 



RDD IN FIRST 

0290 

16 




TR8 




0299 

FB 

02 

0B 


RDD 

B 

TEMP2 

ADD TO CHECKSUM 

029C 

F? 

©2 

0B 


STR 

B 

TEMP2 


029F 

39 




RTS 








* LORD 

R MIKBUG FORMAT 

TAPE 

02R0 

86 

30 


LORD 

LDR 

R 


SETUP CONTROL PIA 

02R2 

B7 

80 

0? 


STR 

fi 

S8007 


02R5 

CE 

05 

B1 


LDX 


#TAPEQN 

PRINT CONTROL CHRS. 

02R8 

8D 

81 



BSR 


PDATfl 


02RR 

BD 

02 

22 

L0RD1 

JSR 


INCH 

GET CHARACTER 

02RD 

81 

53 



CMP 

R 

ft'S 

IS IT RN 'S'? 

02RF 

26 

F9 



BNE 


L0RD1 

LOOP IF NOT 

02B1 

BD 

02 

22 


JSR 


INCH 

GET CHARACTER 

02B4 

81 

39 



CMP 

fl 

#'9 

IS IT R '9'? 

02B6 

27 

5D 



BEQ 


L0RD4 

IF SO WE'RE DONE 

02B8 

80 

31 



SUB 

R 

#'l 

COMPRRE TO fl '1' 

02BR 

26 

EE 



BNE 


L0RD1 

LOOP IF NOT EQUAL 

02BC 

B7 

02 

8B 


STR 

fl 

TEMPS 

CLEAR CHECKSUM 

02BF 

8D 

CD 



BSR 


IN2HEX 


02C1 

89 

02 



SUB 

fl 

S2 

GET BYTE COUNT - 2 

02C3 

B? 

02 

0C 


STR 

R 

TEMP2+1 

SAVE IT 

02C6 

8D 

C6 



BSR 


IN2HEX 

GET LORD ADDRESS 

02C8 

B? 

02 

89 


STR 

fl 

TEMPI 


02CB 

8D 

Cl 



BSR 


IM2HEX 


02CD 

B7 

02 

0fl 


STR 

fl 

TEMP1+1 


02D0 

FE 

02 

09 


LDX 


TEMPI 


02D3 

BD 

05 

8fl 


JSR 


CMPRRE 

COMPARE OLDPTR 

02D6 

22 

0E 



BHI 


L0RD2 

JUMP IF OUTSIDE RANGE 

02D8 

FE 

02 

1? 


LDX 


OBJEND 


02DB 

BD 

05 

98 


JSR 


CMPX 

COMPARE ADDRESS & OBJEND 

02DE 

23 

06 



BLS 

— 

L0RD2 

JUMP IF OUTSIDE RANGE 

82E0 

CE 

02 

0F 


LDX 


#CMPREG 

IF WITHIN RRNGE, 

02E3 

BD 

05 

R2 


JSR 


RDDOFF 

RDD IN OFFSET 

02ES 

FE 

02 

0F 

L0RD2 

LDX 


CMPREG 

GET FINAL ADDRESS 

02E9 

8D 

R3 


L0RD25 

BSR 


IN2HEX 

GET A BYTE 

02EB 

7R 

02 

0C 


DEC 


TEMP2+1 

DEC. BYTE COUNT 

02EE 

2? 

05 



BEQ 


L0RD3 

EXIT IF = 0 

02F0 

R? 

00 



STR 

R 

0, X 

ELSE STORE BYTE 

02F2 

08 




INX 




02F3 

20 

F4 



BRR 


L0RD25 

LOOP UNTIL DONE 

02F5 

7C 

02 

08 

L0RD3 

INC 


TEMP2 

IS CHECKSUM RIGHT? 

02F3 

27 

B0 



BEQ 


L0RD1 

IF SO, GET NEXT RECORD 

02FR 

8D 

19 


ERROR 

BSR 


L0RD4 

ERROR. . . TURN OFF TRPE 

02FC 

8D 

26 



BSR 


DELAY 

PAUSE AWHILE 

02FE 

CE 

86 

90 


LDX 


#ERR 


0301 

BD 

02 

29 


JSR 


PSTRNG 

REPORT ERROR 

0394 

BD 

02 

22 

TRYAG 

JSR 


INCH 

GET RESPONSE 

039? 

81 

59 



CMP 

R 

#'Y 


0309 

2? 

07 



BEQ 


L0RD35 

IF YES, TRY AGAIN 



BBSS 
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030B 

81 

4E 



CMP A 

#'N 


030D 

26 

F5 



BNE 

TRYAG 


030F 

7E 

02 

25 


JMP 

MONITR 

IF HO, EXIT PROGRAM 

0312 

7E 

02 

R0 

L0AD35 

JMP 

LOAD 


0315 

86 

34 


L0AD4 

LDfl A 

#$34 

RESET CONTROL PIA 

031? 

B7 

88 

07 


STA A 

$8037 


031fl 

CE 

05 

B6 


LDX 

#TAP0FF 

PRINT CONTROL CHARS. 

031D 

BD 

02 

2B 


JSR 

PDATA 


0320 

BD 

02 

36 


JSR 

PCRLF 


0323 

39 




RTS 







* DELRV 

ROUTINE 


0324 

CE 

FF 

FF 

DELAY 

LDX 

#$FFFF 


032? 

89 



DELAV1 

DEX 

DELAY AWHILE 

0328 

08 




INX 



0329 

09 




DEX 



032R 

08 




INX 



032B 

09 




DEX 



032C 

26 

F9 



BNE 

DELAY1 


032E 

39 




RTS 







* START 

OF MAIN PROGRAM 


032F 

BD 

02 

36 

BEGIN 

JSR 

PCRLF 

PRINT £ LINE FEEDS 

0332 

BD 

02 

36 


JSR 

PCRLF 


0335 

?F 

62 

86 


CLR 

TAPE 

CLEAR FLAGS 

8338 

7F 

82 

08 


CLR 

FIXREF 


8338 

7F 

82 

87 


CLR 

PLAY 


033E 

CE 

06 

AF 


LDX 

#DRBEG 

SETUP DIRECT POINTER 

0341 

FF 

02 

11 


STX 

DRCPTR 


0344 

CE 

05 

C2 


LDX 

#INTRO 


034? 

BD 

02 

29 


JSR 

PSTRNG 

PRINT INTRO MESSAGE 

034ft 

BD 

02 

28 


JSR 

* PNEXTS 


034D 

CE 

85 

Eft 


LDX 

#BEGADR 


0350 

BD 

02 

68 

- 

JSR 

PINADD 

GET BEGIN ADDRESS - 

8353 

FF 

02 

13 


STX 

OLDPTR 


0356 

FF 

82 

19 


STX 

RGBEG 

SET RANGE BEGIN 

0359 

CE 

05 

Ffl 


LDX 

SENDADR 


0350 

BD 

02 

68 


JSR 

PINADD 

GET END ADDRESS 

035F 

FF 

02 

17 


STX 

OBJEND 


0362 

FF 

02 

IB 


STX 

RGEND 

SET RANGE END 

0365 

CE 

06 

0ft 


LDX 

#NEWBG 


0368 

BD 

02 

68 


JSR 

PINADD 

GET NEW BEGIN ADDRESS 

0368 

FF 

02 

15 


STX 

NEWPTR 


036E 

B6 

02 

16 


LDA A 

1 NEWPTR+1 

CALCULATE OFFSET * 

03?1 

B0 

02 

14 


SUB A 

1 OLDPTR+1 


03?4 

B7 

02 

IE 


STfl A 

1 OFFSTR 


03?? 

B6 

02 

15 


LDfl A 

1 NEWPTR 


03?fl 

B2 

02 

13 


SBC A 

1 OLDPTR 


03?D 

B? 

02 

ID 


STA A OFFSTL 


0380 

CE 

06 

3E 


LDX 

8FIXRFS 


0383 

BD 

02 

29 


JSR 

PSTRNG 

ASK TO FIX REFERENCES 

0386 

BD 

82 

22 


JSR 

INCH 

GET RESPONSE 
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TSC 6808 RELOCRT0R 


8389 

81 

4E 



CMP 

8 

#'N 


033B 

27 

03 



BEQ 


LDFRTP 


0380 

70 

02 

88 


INC 


FIXREF 

IF VES, SET FL8G 

0399 

CE 

06 

18 

LOFRTP 

LDX 


4TRPSTR 


0393 

BO 

02 

29 


JSR 


PSTRNG 

LOADING FROM TRPE? 

0396 

BO 

02 

22 


JSR 


INCH 

GET RESPONSE 

0399 

81 

59 



CMP 

8 

#'V. 


0398 

27 

03 



BEQ 


LDFRT1 


039D 

7E 

04 

26 


JMP 


N0T8PE 

IF NOT, JUMP AHEAD 

0300 

70 

02 

06 

LDFRT1 

INC 


T8PE 

IF SO, SET TAPE FLAG 

0303 

70 

02 

07 


INC 


PL8V 


0306 

BD 

©2 

80 


JSR 


LORD 

GO LOAD TAPE 

0309 

7F 

02 

07 


CLR 


PL8V 


030C 

BO 

03 

24 


JSR 


DEL8V 

PAUSE AWHILE 

03RF 

CE 

06 

2B 


LDX 


#L08DED 


03B2 

BD 

02 

29 


JSR 


PSTRNG 

REPORT LOAD COMPLETE 

03B5 

BD 

02 

22 

WRIT 

JSR 


INCH 

GET A CHARACTER 

03B8 

81 

20 



CMP 

8 

#*20 


03B0 

26 

F9 



BNE 


WRIT 

BUT ONLV ACCEPT 8 SPACE 

03BC 

70 

02 

08 


TST 


FIXREF 

FIXING REFERENCES? 

03BF 

26 

03 



BNE 


TRPFIX 


03C1 

7E 

02 

25 


JMP 


MGNITR 

IF NOT, EXIT PROGRAM 

0304 

FE 

02 

15 

TRPFIX 

LDX 


NEWPTR 


03C7 

FF 

02 

13 


STX 


OLDPTR 

IF SO, FIX OLDPTR 

0300 

CE 

02 

17 


LDX 


#OBJEND 


03CD 

BD 

05 

82 


JSR 


fiDDQFF 

RND OBJECT END 





* ENTER 

DIRECT 

DRTR BLOCKS 

0300 

CE 

06 

RF 

ORBLKS 

LDX 


#DRBEG 


0303 

FF 

02 

00 


STX 


TEMP3 

S8VE DIRECT BEGIN 

0306 

CE 

06 

4F 


LDX 


#DRCTBK 


0309 

BD 

02 

29 


JSR 


PSTRNG 

RNV DIRECT REL0C8TES? 

0300 

BO 

02 

22 


JSR 


INCH 


03DF 

81 

4E 



CMP 

8 

#'H 


03E1 

26 

05 



BNE 


0RBLK1 

IF SO GO GET THEM 

03E3 

CE 

FF 

FF 


LDX 


' #$FFFF 

.. .~ ' .. ■_ 

03E6 

20 

63 



BRfi 

- 

DIFFRGT 

IF NOT, JUMP RHERO 

03E8 

BO 

02 

36 

DRBLK1 

JSR 


PCRLF 


03EB 

CE 

05 

E8 


LDX 


#BEG8DR 


03EE 

BO 

02 

69 


JSR 


PINflDD 

GET BLOCK BEGIN 

03F1 

80 

FF 

FF 


CPX 


#*FFFF 

FINISHED? 

03F4 

27 

55 



BEQ 


DIFFRG 

IF SO, JUMP RHERD 

03F6 

8D 

08 



BSR 


ENTER 

PUT ADDRESS ON STACK 

03F8 

CE 

05 

FR 


LDX 


#END8DR 


03FB 

BD 

02 

68 


JSR 


PINRDD 

GET BLOCK END 

03FE 

80 

02 



BSR 


ENTER 

PUT IT ON STACK 

0400 

20 

E6 



BR8 


DRBLK1 

LOOP BACK 

0402 

7D 

02 

06 

ENTER 

TST 


TRPE 

LOADED FROM TAPE? 

0405 

27 

09 



BEQ 


ENTER0 

IF NOT GO AHEAD 

0407 

CE 

02 

09 


LDX 


#TEMPi 


0400 

BD 

05 

82 


JSR 


RDDOFF 

IF SO, ADD OFFSET 

040D 

FE 

02 

09 


LDX 


TEMPI 


0410 

FF 

02 

0B 

ENTER8 

STX 


TEMP 2 

SAVE RDDRESS 








TSC 6800 RELOCATOR 


TSC MNEMONIC ASSEMBLER PAGE ( 


0413 

FE 

02 

0D 


LDX 

TEMP3 

POINT TO DIRECT STACK 

0416 

B6 

02 

0B 


LDfi ft 

TEMP2 

PUT ADDRESS ON STACK 

0419 

R7 

00 



STfl ft 

0, X 


041B 

B6 

02 

0C 


LDft ft 

TEMP2+1 


041E 

07 

01 



STfl fl 

1/ X 


0420 

08 



ENTER1 

INX 


FIX DIRECT STACK PTR. 

0421 

08 




INX 



0422 

FF 

02 

0D 


SIX 

TEMP3 


0425 

39 




RTS 



0426 

7D 

02 

08 

NOTAPE 

TST 

FIXREF 

FIXING REFERENCES? 

0429 

26 

fl5 



BNE 

DRBLKS 

IF SO* GO ENTER DIRECTS 

0420 

CE 

00 

00 


LDX 

#$0000 

IF NOT* MftKE THE 

042E 

FF 

06 

flF 


STX 

DRBEG 

ENTIRE RAM SPACE INTO 

0431 

CE 

FF 

FF 


LDX 

#$FFFF 

fl DIRECT RELOCRTE BLOCK 

0434 

FF 

06 

B1 


STX 

DRBEG+2 

- 

0437 

FF 

06 

B3 


STX 

DRBEG+4 


043ft 

20 

39 



BRfl 

LOOP 

START RELOCATION 





* ROUTINE TO INCREMENT 

POINTERS 

043C 

FE 

02 

15 

INCPTR 

■ LDX 

NEWPTR 


043F 

08 




INX 


INCREMENT NEW POINTER 

0440 

FF 

02 

15 


STX 

NEWPTR 


0443 

FE 

.02 

13 


LDX 

OLDPTR 


0446 

08 




INX 


INCREMENT OLD POINTER 

0447 

FF 

02 

13 


STX 

OLDPTR 


844ft 

39 




RTS 







* CHftNGE REFERENCE RftNGE ROUTINE 

044B 

8D 

C3 


DIFFRG 

BSR 

ENTER0 

SET DIRECT STACK END 

044D 

CE 

06 

5D 


LDX 

#CHflNGE 


0450 

BD 

02 

29 


JSR 

PSTRNG 

ASK TO CHANGE RANGE 

0453 

BD 

02 

22 


JSR 

INCH 

GET RESPONSE 

0456 

81 

59 



CMP fl 

#'V 


0458 

26 

12 


- 

BNE 

LOOP 

IF NO* START RELOCATION 

045ft 

CE 

05 

Eft 


LDX 

#BEGflDR 

* • 

045D 

BD 

92 

68 


JSR 

PINftDD 

GET RANGE BEGIN 

046O 

FF 

02 

19 


STX 

RGBEG 


0463 

CE 

05 

Fft 


LDX 

#ENDflDR 


0466 

BD 

02 

68 


JSR 

PINftDD 

GET RANGE END 

0469 

FF 

@2 

IB 


STX 

RGEND 






* MfilN 

RELOCATION LOOP 


046C 

FE 

0i. 

17 

LOOP 

LDX 

OBJEND 

IS OLDPTR > OBJEND? 

046F 

BD 

0b 

9fl 


JSR 

CMPflRE 


0472 

23 

03 



BLS 

LOOP1 


0474 

7E 

05 

4 v 


JMP 

DONE 

IF SO WE"RE DONE 

0477 

FE 

02 

11 

LOOP1 

LDX 

DRCPTR 

IS THIS A DIRECT BLOCK? 

047fl 

EE 

09 



LDX 

0/ X 


047C 

BD 

05 

8ft 


JSR 

CMPflRE 


047F 

25 

03 



BCS 

L00P2 


0481 

7E 

05 

IE 


JMP 

DIRECT 

IF SO* GO MOVE DIRECT 
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0484 

86 

69 


LO0P2 

LDR R 

X 

© 

MOVE OPCODE 

048S 

FE 

02 

15 


LDX 

NEWPTR 


0489 

8? 

00 



ST8 8 

0, X 


0488 

FE 

02 

13 


LDX 

OLDPTR 


048E 

84 

30 



8ND ft 

#$30 

CHECK FOR 3 BVTE INST. 

0490 

81 

38 



CMP 8 

#$39 


0492 

2? 

29 



BEQ 

M8VBE3 

COULD BE 3 BYTES 

0494 

86 

09 



LDR 8 

0, X 


0496 

81 

CE 



CMP 8 

#*CE 

CHECK FOR LDX # 

0498 

2? 

29 



BEQ 

THREE 


0498 

81 

8C 



CMP 8 

#$8C 

CHECK FOR CPX # 

049C 

27 

25 



BEQ 

THREE 


049E 

81 

8E 



CMP ft 

#$8E 

CHECK FOR LDS # 

0480 

27 

21 



BEQ 

THREE 


0482 

81 

5F 



CMP 8 

#$5F 

LOOK FOR 2 BVTE INST. 

0484 

£2 

0B 



BHI 

TWO 


0486 

84 

F0 



8ND ft 

#$F0 

LOOK FOR 1 BVTE INST. 

0488 

81 

20 



CMP 8 

#$20 


8488 

27 

05 



BEQ 

TWO 






* ONE BYTE INSTRUCTION 


048C 

BD 

94 

30 

ONE 

JSR 

INCPTR 


048F 

20 

BB 



BRfl 

LOOP 

GET NEXT INSTRUCTION 





*TWQ BVTE INSTRUCTION 


04B1 

BD 

04 

30 

TWO 

JSR 

INCPTR 

POINT TO 2ND BVTE 

04B4 

86 

00 



LDfl 8 

0, X 

MOVE IT 

04B6 

FE 

02 

15 


LDX 

NEWPTR 


04B9 

87 

00 



STR 8 

0, X 


04BB 

20 

EF 



BR8 

ONE 

NEXT INSTRUCTION 

04BD 

86 

00 


MRYBE3 

LD8 8 

0, X 

CHECK 3 OR 1 BVTE INST. 

04BF 

85 

C0 



BIT ft 

#$C0 


04C1 

27 

E9 



BEQ 

ONE 






* THREE 

BVTE INSTRUCTION 


04C3 

BD 

04 

30 

THREE 

JSR 

INCPTR 

POINT TO REFERENCE 

04C6 

FE 

02 

19 


LDX 

RGBEG 

IS IT BELOW RftNGE BEG? 

04C9 

FF 

02 

0F 


STX 

CMPREG 


04CC 

FE 

02 

13 


LDX 

OLDPTR 


04CF 

EE 

00 



LDX 

0/ X 


04D1 

BD 

05 

90 


JSRo^ 

CMPX 


04D4 

25 

3C 



BLO ' 

NOFFST 

IF SO, NO OFFSET 

04D6 

FE 

©2 

IB 


LDX 

RGEND 

IS IT ABOVE RftNGE END? 

04D9 

FF 

02 

0F 


STX 

CMPREG 


04DC 

FE 

02 

13 


LDX 

OLDPTR 


04DF 

EE 

00 



LDX 

0, X 


04E1 

BD 

05 

99 


JSR 

CMPX 


04E4 

22 

20 



BHI 

NOFFST 

IF SO, NO OFFSET 

04E6 

FE 

02 

13 


LDX 

OLDPTR 


04E9 

09 




DEX 







I 
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04ER 

R6 

00 



LDR 

R 

0, X 

GET OPCODE 

04EC 

08 




I NX 




04ED 

81 

7E 



CMP 

R 

#$?E 

IS IT R JUMP? 

04EF 

27 

0R 



BEQ 


OFFSET 

IF SO, DO OFFSET 

04F1 

84 

F0 



RND 

fl 

#$F8 

CHECK FOR PAGE 0 REF. 

04F3 

81 

70 



CMP 

fl 

#$70 


04F5 

26 

04 



BNE 


OFFSET 


04F7 

R6 

00 



LDR 

R 

0, X 


04F9 

27 

1C 



BEQ 


NOFST1 

IF PAGE 0, NO OFFSET 

04FB 

R6 

01 


OFFSET 

LDR 

fl 

1, X 

ADD OFFSET TO REFERENCE 

04FD 

BB 

02 

IE 


ADD 

R 

OFFSTR 


0509 

16 




TAB 




0501 

R6 

00 



LDR 

R 

0, X 


0503 

B9 

02 

ID 


RDC 

R 

OFFSTL 


0506 

FE 

02 

15 

NEXT 

LDX 


NEWPTR 

STORE RESULT . 

0509 

R7 

00 



STfl 

R 

0, X 


0508 

E7 

01 



STR 

B 

1, X 


050D 

BD 

04 

3C 


JSR 


INCPTR 


0510 

20 

9fl 



BRR 


ONE 

GET NEXT INSTRUCTION 

0512 

FE 

02 

13 

NOFFST 

LDX 


OLDPTR 

NO OFFSET ADDED 

0515 

R6 

00 



- LDR 

fl 

0, X 


0517 

E6 

01 


NOFST1 

LDR 

B 

1, X 


0519 

20 

E8 



BRR 


NEXT 




* 


* MOVE 

DIRECT 

DATA BLOCK 


051B 

BD 

04 

3C 

DRECT0 

JSR 


INCPTR 

BUMP POINTERS 

051E 

86 

00 


DIRECT 

LDR 

fl 

0, X 

MOVE ONE BYTE 

8520 

FE 

02 

15 


LDX 


NEWPTR 


0523 

R7 

00 



STfl 

R 

0, X 


0525 

FE 

02 

17 


LDX 


OBJEND 


0528 

BD 

05 

8fl 


JSR 


CMPRRE 

END OF PROGRAM? 

052B 

27 

17 



BEQ 


DONE 

IF SO, WE'RE DONE 

052D 

FE 

02 

11 


LDX 


DRCPTR 

GET BLOCK END ADDRESS 

0530 

EE 

02 



LDX 


2, X 


0532 

BD 

05 

8fl 


JSR 


CMPRRE 

RRE WE THERE? 

0535 

26 

E4 



BNE 


DRECT0 

IF NOT, MOVE ANOTHER 

0537 

FE 

02 

11 


LDX 


DRCPTR 

FIXUP DIRECT POINTER 

053R 

08 




INX 




053B 

08 




INX 




053C 

08 




INX 




053D 

08 




INX 




053E 

FF 

02 

11 


STX 


DRCPTR 


0541 

7E 

04 

RC 


JMP 


ONE 

GO TO NORMAL RELOCATION 





* CODE 

IS RELOCATED, CHECK FDB'S 

0544 

7D 

02 

08 

DONE 

TST 


FIXREF 

FIXING REFERENCES? 

0547 

27 

2F 



BEQ 


DONEE 

IF NOT, RLL DONE 

0549 

5F 




CLR 

B 


. 

054R 

CE 

06 

84 


LDX 


SFXFBDS 


054D 

BD 

02 

29 


JSR 


PSTRNG 

RSK TO FIX FDB'S 

0550 

BD 

02 

22 


JSR 


INCH 

GET RESPONSE 

0353 

81 

4E 



CMP 

R 

tt'N 
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0555 27 21 
0557 81 59 
0559 27 01 
055B 5C 
055C 37 
055D CE 05 F0 
0560 BD 02 68 
0563 33 
0564 8C FF FF 
0567 27 0F 
0569 5D 
0560 26 08 
056C CE 02 09 
056F 8D 31 
0571 FE 02 09 
0574 8D 2C 
0576 20 E4 


x* ALL FINISHED ROUTINE 


0578 

BD 

02 

36 

D0NE2 

JSR 


PCRLF 



057B 

BD 

02 

36 


JSR 


PCRLF 



057E 

CE 

06 

6B 


LDX 


#FINE 



0581 

BD 

02 

29 


JSR 


PSTRNG 

REPORT COMPLETION 

0534 

BD 

02 

36 


JSR 


PCRLF 



0587 

7E 

02 

25 


JMP 


MONITR 

EXIT THE PROGRAM 





* TWO 

BYTE COMPARE ROUTINE 


0580 

FF 

02 

0F 

CMPRRE 

STX 


CMPREG 



058D 

FE 

02 

13 


LDX 


OLDPTR 



0590 

FF 

02 

09 

CMPX 

STX 


TEMPI 

COMPARE CMPREG TO TEMPI 

0593 

B6 

02 

09 


LDR 

fl 

TEMPI 



0596 

B1 

02 

0F 


CMP 

fl 

CMPREG 



0599 

26 

06 



BNE 


CMPX1 



059B 

B6 

02 

00 


LDR 

fl 

TEMP1+1 



059E 

B1 

02 

10 


CMP 

fl 

CMPREG+1 



0501 

39 



CMPX1 

RTS 









★ ROUTINE TO HDD IN OFFSET 


03R2 

06 

01 


RDDOFF 

LDR 

fl 

1, X 

GET 

RIGHT HRLF 

0504 

BB 

02 

IE 


ADD 

fl 

OFFSTR 

ADD 

OFFSET RIGHT 

05^7" 07 

01 



STR 

fl 

1, X 



0509 

06 

09 



LDR 

fl 

0/ X 

GET 

LEFT HALF 

050B 

B9 

02 

ID 


RDC 

fl 

OFFSTL 

ADD 

OFFSET LEFT 

050E 

07 

00 



STR 

fl 

0, X 



0588 

39 




RTS 








* STRINGS 


05B1 

0582 

09 

69 00 

TflPEO?^ FCB 

0, 0, 0.. 0, 4 


DONE0 


DONE1 
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BEQ 


DONEE 

IF N, ALL DONE 

CMP 

fl 

#'Y 


BEQ 


DONE0 

IF V, JUMP AHEAD 

INC 

B 


ELSE SET FLAG 

PSH 

B 


SAVE FLAG 

LDX 


#BEGRDR+6 


JSR 


PINflDD 

GET FDB ADDRESS 

PUL 

B 


RESTORE FLAG 

CPX 


8SFFFF 

ANY MORE FDB'S? 

BEQ 


D0NE2 

IF NOT, ALL DONE 

TST 

B 


IS FDB WITHIN RANGE? 

BNE 


DONEl 

IF NOT, NO OFFSET ^ 

LDX 


#TEMP1 

7 

BSR 


RDDOFF 

ELSE ADD IN OFFSETJ 

LDX 


TEMPI 


BSR 


RDDOFF 

FIXUP THE FDB € 

BRfl 


DONE0 

ANY MORE? 



trix. 


•bffifanK 
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05B4 

00 

04 




85B6 

00 


TRPOFF 

FOB 

0, 0, Qj 0, 4 

05B? 

00 

00 




05B9 

00 

04 




05BB 

0D 


CRLF 

FOB 

$D.< 0j 0/ 0> 0/ 4 

05BC 

98 

00 




05BE 

00 

00 




0500 

09 

04 




0502 

28 


INTRO 

FCC 

'* TSC 6800 REL0C8T0R 

0503 

20 

54 




0505 

53 

43 




05C7 

20 

36 




0509 

38 

30 




05CB 

30 

20 




05CD 

52 

45 




05CF 

40 

4F 




05D1 

43 

41 




05D3 

54 

4F 




05D5 

52 

29 




05D7 

28 





05D8 

04 


. 

. FOB 

4 

05D9 

50 



FCC 

''PRESENT PROGRRM: ' 

05DR 

52 

45 




05DC 

53 

45 




05DE 

4E 

54 




05E0 

28 

59 




05E2 

52 

4F 


•/. " 


05E4 

47 

52 



; " ^•• •• - ■■■: ■ ' ' ..V \. 

05E6 

41 

4D 




05E3 

38 





05E9 

04 



FOB 

4 

05ER 

42 


BEGRDR 

FCC 

'BEGIN RDDRESS? ' 

05EB 

45 

47 




05ED 

49 

4E 




05EF 

20 

41 




05F1 

44 

44 

- 



05F3 

52 

45 




05F5 

53 

53 




05F7 

3F 

20 




05F9 

04 



FOB 

4 

05FR 

20 


ENDRDR 

FCC 

' END RDDRESS? ' 

05FB 

20 

45 .. 




05FD 

4E 

44 




05FF 

20 

41 



* 

0601 

44 

44 




0603 

52 

45 




0605 

53 

53 




0607 

3F 

20 




0609 

04 



FOB 

4 

0688 

28 


NEW8G 

FCC 

' MOVE TO? ' 

0608 

20 

20 




060D 

20 

20 




069F 

29 

4D 




0611 

4F 

56 
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0613 45 20 
0615 54 4F 
061? 3F 20 
0619 04 
061A 4C 
0610 4F 41 
061D 44 20 
861F 46 52 
0621 4F 4D 
0623 29 54 
0625 41 50 
©627 45 3F 
0629 20 
062R 04 
0628 2E 
062C 2E 2E 
062E 4C 4F 
0630 41 44 
0632 29 43 
0634 4F 4D 
0636 59 4C 
0638 45 54 
063R 45 44 
063C 2E 
063D 64 
063E 46 
063F 49 53 
0641 20 52 
0643 45 46 
0645 45 52 
0647 45 4E 
0649 43 45 
064B 53 3F 
064D 20 
064E 04 
064F 44 
0650 41 54 
0652 41 20 
0654 42 4C 
0656 4F 43 
0658 4B 53 
065R 3F 20 
065C 04 
065D 41 
065E 4C 54 
0669 45 52 
0662 29 52 
0664 41 4E 
0666 47 45 
8669 3F 29 
0668 04 
066B 52 
0S6C 45 4C 
©S6E 4F 43 


FCB 

TAPSTR FCC 


4 

"LORD FROM TRPE? ' 


FCB 

LORDED FCC 


4 

. . LORD COMPLETED. ' 


FCB 

FIXRFS FCC 


4 

'FIX REFERENCES? ' 


FC3 

DRCTBK FCC 


4 

'DRTR BLOCKS? ' 


FCB 

CHRNGE FCC 


4 

'ALTER RANGE? ' 


FINE 


FCB 4 

FCC 'RELOCATION COMPLETED !!!' 






1 
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0S?0 

41 

54 




0672 

49 

4F 




0674 

4E 

20 




0676 

43 

4F 




0678 

4D 

50 




067ft 

4C 

45 




067C 

54 

45 




067E 

44 

20 




0680 

21 

21 




0682 

21 





0683 

04 



FCB 

4 

0684 

46 


FXFBDS 

FCC 

'FIX FDB' ! 

0685 

49 

58 




0687 

20 

46 




0689 

44 

42 




068B 

27 



FCB 

$27, $53, $3F, $20, 4 

068C 

53 

3F 




068E 

20 

04 




0690 

4C 


ERR 

FCC 

'LORD ERROR! TRV ftGRIN? 

0691 

4F 

41 




0693 

44 

20 




0695 

45 

52 




0697 

52 

4F 




0699 

52. 

21 




069B 

20 

20 




069D 

54 

52 



■ . 

069F 

59 

20 



v.- - V ~ ■ . ■ :■ 

06fll 

41 

47 




06PI3 

41 

49 




06R5 

4E 

3F 




06fl7 

20 





06R8 

07 



FCB 

7, 4 

06R9 

04 





06RR 

07 


WHRT 

FCB 

7, $28, $3F, $20, 4 

06RB 

20 

3F 




06RD 

20 

04 

- 



06RF 



DRBEG 

RMB 

20 


END 

NO ERRORCS) DETECTED 


SVMBOL TRBLE: 


RDDOFF 

05R2 

BEGRDR 

05ER 

BEGIN 

CMPREG 

020F 

CMPX 

0590 

CMPXi 

DELRV1 

0327 

DIFFRG 

044B 

DIRECT 

D0NE1 

0574 

D0NE2 

0578 

DR3EG 

DRCPTR 

0211 

DRCTBK 

064F 

DRECT0 

ENTER0 

0410 

ENTER! 

0420 

ERR 

FIXREF 

0208 

FIXRFS 

063E 

FXFBDS 

IH1HX2 

0258 

IN2HEX 

028E 

INRDD0 

INRDDR 

026ft 

INCH 

0222 

INCPTR 


032F 

CHftNGE 

065D 

CMPftRE 

05R1 

CRLF 

05BB 

DELftV 

051E 

DONE 

0544 

DCNE9 

06RF 

DRBLK1 

03E8 

DRBLKS 

051B 

ENDRDR 

85FR 

ENTER 

069O 

ERROR 

G2FR 

FINE 

8684 

IN1HEX 

0242 

IN1HX1 

8278 

INRDD1 

027E 

INRDD2 

04 3C 

IHERR 

0255 

INERR2 



053ft 

0324 

655C 

03D9 

0402 

0668 

0244 

028ft 

0261 
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INTRO 

05C2 

LDFRT1 03R0 

LDFRTP 

L0RD2 

02E6 

L0RD25 02E9 

L0RD3 

LORDED 

062B 

LOOP 

046C 

LOOP1 

MONITR 

0225 

NEWBG 

060R 

NEUPTR 

NOFST1 

0517 

NQTRPE 0426 

OBJEND 

OFFSTR 

021E 

OLDPTR 0213 

ONE 

PDRTfl 

022B 

PINflDD 0268 

PLAY 

RETURN 

0241 

RGBEC 

0219 

RGEND 

TfiPEON 

05B1 

TRPFIX 03C4 

TRPOFF 

TEMP2 

020B 

TEMP3 

020D 

THREE 

WRIT 

03B5 

WHRT 

06RR 



OBJECT CODE: 

SI 09 0200 8E 0F FF 7E 03 2F R3 

SI 13 021F 7E El D1 7E El RC 7E EO 

SI 13 022F 27 10 8D EC 08 20 F5 FF 

SI 13 023F 02 09 39 8D DE 80 47 2R 

SI 13 024F 03 8B '0fl 2B 01 39 31 31 

SI 13 025F 02 Ffl CE OS RR 8D C5 20 

SI 13 026F 0fl 8D B0 81 0D 27 14 8D 

SI 13 027F 79 02 0R 79 02 09 5R 26 

SI 13 02-8F B2 48 48 48 48 16 SD RB 

SI 13 029F 39 86 3C B7 80 07 CE 85 

SI 13 02RF 26 F9 BD 02 22 81 39 27 

SI 13 02BF 8D CD 80 02 B7 02 9C 8D 

SI 13 02CF 0R FE 02 09 BD 05 8fi 22 

SI 13 02DF 06 CE 02 0F BD 05 R2 FE 

SI 13 02EF 05 R7 00 38 20 F4 7C 02 

SI 13 02FF 06 90 BD 02 29 BD 02 22 

SI 13 030F 7E 02 25 7E 02 R0 86 34 

SI 13 031F 2B BD 02 36 39 CE FF FF 
SI 13 032F BD 02 36 BD 02 36 7F 02 
SI 13 033F 06 RF FF 02 11 CE 05 C2 
SI 13 034F ER BD 02 68 FF 02 13 FF 
SI 13 035F FF 02 17 FF 02 IB CE 06 
SI 13 036F 02 16 B0 02 14 B7 02 IE 
SI 13 037F ID CE 06 3E BD 02 29 BD 
SI 13 038F 08 CE 06 lfl BD 02 29 BD 
SI 13 039F 26 7C 02 06 7C 02 07 BD 
SI 13 03RF CE 06 2B BD 02 29 BD 02 
SI 13 03BF 26 03 7E 02 25 FE 02 15 
SI 13 03CF R2 CE 06 RF FF 02 0D CE 
SI 13 03DF 81 4E 26 05 CE FF FF 20 
SI 13 03EF 02 68 8C FF FF 27 55 8D 
SI 13 03FF 02 20 E6 7D 02 06 27 09 
SI 13 040F 09 FF 02 08 FE 02 0D B6 
SI 13 041F 01 03 08 FF 02 0D 39 7D 
SI 13 042F 06 RF CE FF FF FF 06 B1 
SI 13 043F 08 FF 02 15 FE 02 13 08 
SI 13 044F 5D BD 02 29 BD 02 22 31 


039O 

LORD 

02R0 

LORD1 

• 2RR 

02F5 

L0RD35 

0312 

L0RD4 

9315 

0477 

L00P2 

0484 

MRYBE3 

843D 

8215 

NEXT 

0506 

NOFFST 

0512 

0217 

OFFSET 

04F8 

OFFSTL 

021D 

04RC 

OUTCH 

021F 

PCRLF 

9236 

0207 

PNEXTS 

0228 

PSTRNG 

0229 

021B 

START 

©200 

TAPE 

0296 

05B6 

TRPSTR 

061R 

TEMPI 

0299 

04C3 

TRYRG 

0304 

TWO 

0431 


E3 08 8D 0B R6 00 81 04- 84 
02 09 CE 05 BB 8D ED FE DE 
0D 8B 06 2R 04 8B 07 2R 83 
7D 02 07 27 05 31 31 7E R8 
02 8D BF 7F 02 09 7F 02 46 
CC 48 48 48 43 C6 04 43 E0 
F6 20 E6 FE 02 09 39 8D 17 
IB 16 FB 02 0B F7 02 0B FE 
B1 8D 81 BD 02 22 81 53 CB 
5D 80 31 26 EE B7 02 08- 74 
C6‘ B7 02 09 8D Cl B7 02 6E 
0E FE 02 17 BD 05 90 23 00 
02 OF 8D R3 7fl 02 0C 27 D4 
OB 27 B0 8D 19 8D 26 CE RC 
81 59 27 07 81 4E 26 F5 9R 
B7 80 07 CE 05 B6 BD 02 D5 
09 03 09 08 09 26 F9 39 22 
06 7F 02 08 7F 02 87 CE 6R 
BD 02 29 BD 02 23 CE 05 RC 
02 19 CE 05 FR BD 02 68 67 
0R BD 02 68 FF 82 15 B6 35 
B6 02 15 B2 02 13 B7 02 78 
02 22 81 4E 27 03 7C 02 FB 
02 22 81 59 27 03 7E 04 15 
02 R8 7F 02 07 BD 03 24 50 
22 81 20 26 F9 7D 02 08 2B 
FF 02 13 CE 02 17 BD 05 8fl 
06 4F BD 02 29 BD 02 22 FB 
63 BD 02 36 CE 05 ER BD 52 
OR CE 05 Ffl BD 02 68 8D 72 
CE 02 09 BD 05 R2 FE 02 F0 
02 0B R7 00 B6 02 0C R7 E2 
02 03 26 R5 CE 00 00 FF 52 
FF 06 B3 20 30 FE 02 15 65 
FF 02 13 39 8D C3 CE 06 FF 
59 26 12 CE 05 Eft BD 02 E3 
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Si 

# 


( 

l 

3 

h 

'f 

6 

SI 

13 

045F 

63 

FF 

0£ 

19 

CE 

05 

SI 

13 

046F 

BD 

05 

8fi 

•23 

03 

7E 

SI 

13 

047F 

£3 

03 

7E 

03 

IE 

Fife 

SI 

13 

048F 

30 

81 

30 

27 

29 

fife 

SI 

13 

049F 

BE 

27 

21 

81 

5F 

£2 

SI 

13 

04BF 

£0 

BB 

BD 

04 

3C 

fife 

SI 

13 

04BF 

85 

C0 

27 

E9 

BD 

84 

SI 

13 

040F 

EE 

00 

BD 

05 

90 

£5 

SI 

13 

04DF 

EE 

00 

BD 

05 

90 

22 

SI 

13 

04EF 

27 

0fi 

84 

F0 

SI 

70 

SI 

13 

04FF 

IE 

16 

fife 

00 

B9 

02 

SI 

13 

050F 

3C 

£0 

9fi 

FE 

02 

13 

SI 

13 

051F 

00 

FE 

8£ 

15 

R7 

00 

SI 

13 

052F 

11 

EE 

02 

BD 

05 

8fi 

Si 

13 

053F 

02 

11 

7E 

04 

fiC 

7D 

SI 

13 

054F 

£9 

BD 

02 

22 

81 

4E 

SI 

13 

055F 

F0 

BD 

02 

68 

33 

8C 

SI 

13 

056F 

8D 

31 

FE 

02 

09 

8D 

SI 

13 

037F 

06 

68 

BD 

02 

'29 

BD 

SI 

13 

058F 

13 

FF 

02 

09 

B6 

02 

SI 

13 

059F 

02 

10 

39 

fi6 

01 

BB 

SI 

13 

05RF 

00 

39 

00 

00 

00 

80 

SI 

13 

05BF 

00 

00 

04 

£fi 

£0 

54 

SI 

13 

05CF 

4C 

4F 

43 

41 

54 

4F 

SI 

13 

05DF 

54 

28 

58 

52 

4F 

47 

SI 

13 

05EF 

£0 

41 

44 

44 

52 

45 

SI 

13 

05FF 

20 

41 

44 

44 

52 

45 
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19 

IE 
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fife 
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B9 

02 
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LOCN B1 B2 B3 

* 

* 

* TSC 6800 ASSEMBLER SYSTEM 

* COPYRIGHT 1977 (C) BY 

* 

* TECHNICAL SYSTEMS CONSULTANTS r INC. 

* PO BOX 2574 

* WEST LAFAYETTEr INDIANA 47906 

* 

* 


* 

* INSTRUCTION TYPES 


* 

TYPE 

1 

INHERENT 

* 

TYPE 

o 

Am 

RELATIVE 

* 

TYPE 

3 

INDEXED* EXTENDED 0r1 

* 

TYPE 

4 

DIRECT rINDEXED r EXTENDED 0 r 1.2 

* 

TYPE 

5 

IMMEDIATE r DIRECTrINDEXED rEXTENDED Or If 

* 

TYPE 

6 

INHERENT (ArB)rINDEXEDrEXTENDED 0rlr2r3 

* 

TYPE 

7 

INHERENT (ArB) Orl 

* 

TYPE 

8 

FCC 

* 

TYPE 

9 

FCB 

* 

TYPE 

10 

FDB 

* 

TYPE 

11 

SPC 

* 

TYPE 

12 

OPT 

* 

TYPE 

13 

PAG 

* 

TYPE 

14 

ORG 

* 

TYPE 

15 

EQU 

* 

TYPE 

16 

ENDr MON 

* 

TYPE 

17 

NAMrTTL 

* 

TYPE 

18 

RMB 


# 

* 

* ERROR TYPES 

* 

* 0 SYMBOL TABLE FULL 

* 1 UNDEFINED SYMBOL 

* 2 MULTIPLY DEFINED SYMBOL 

* 3 UNRECOGNIZABLE MNEMONIC 

* 4 ILLEGAL CHARACTER IN LABEL 

* 5 ILLEGAL CHARACTER IN OPERAND 

* 6 RELATIVE BRANCH TOO LONG 

* 7 SYNTAX ERROR 

* 8 ILLEGAL INDEX VARIABLE 

* 9 ILLEGAL CHARACTER FOR SPECIFIED BASE 

* 10 ILLEGAL OPTION SWITCH 

*11 TOO MANY OPERANDS IN DATA STATEMENT 

* 

* 

* STORAGE 




ORG 

$40 


* 



0040 

LBLBEG 

RMB 

n 

A- 

0042 

LBLEND 

RMB 
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LOCN 

0044 

0046 

0048 

0049 

004B 

004D 

004F 

0055 

0056 

0057 

0058 

0059 

005A 

005B 

005C 

005D 

005E 

005F 

0060 

0061 

0062 

0063 

0064 

0065 

0067 

0069 

006B 

006D 

006F 

0071 

0073 

0075 

0077 

0079 

007B 

007D 

007E 

007F 

0080 

0081 

0082 

0083 

0084 

0085 

0087 

0089 

008B 

008D 

008F 

0090 

0091 

0094 

0096 

0098 

009A 


B1 B2 B3 


SRCBEG 

RMB 

9 

Am. 

SRCEND 

RMB 

9 

Amm 

LINBYT 

RMB 

1 

MEMOBJ 

RMB 

2 

PC 

RMB 

9 

A- 

SRCF'TR 

RMB 

9 

LABEL 

RMB 

*6 

PRFLG 

RMB 

1 

ERRFLG 

RMB 

1 

MATFLG 

RMB 

1 

ENDFLG 

RMB 

1 

PCFLAG 

RMB 

1 

DATFLG 

RMB 

1 

FCCFLG 

RMB 

1 

EJFLG 

RMB 

1 

P3FLG 

RMB 

1 

PRTFLG 

RMB 

1 

FAGFLG 

RMB 

1 

LBLMSK 

RMB 

1 

CKSUM 

RMB 

1 

OBJINT 

RMB 

1 

OPN 

RMB 

1 

TERM 

RMB 

1 

XSAVE 

RMB 

9 

Am. 

SPSAVE 

RMB 

9 

XTEMP 

RMB 

9 

Amm 

XTEMP1 

RMB 

9 

A~ 

XTEMP2 

RMB 

9 

XTEMP3 

RMB 

2 

XTEMP4 

RMB 

9 

A- 

XTEMP5 

RMB 

2 

LTEMP 

RMB 

2 

GTEMP3 

RMB 

2 

QTEMP2 

RMB 

9 

*- 

QTEMP 

RMB 

9 

TEMP 

RMB 

1 

OPCODE 

RMB 

1 

0P1 

RMB 

1 

0P2 

RMB 

1 

P2ERR1 

RMB 

1 

P2ERR2 

RMB 

1 

P2ERR3 

RMB 

1 

LSTERR 

RMB 

1 

ERRPTR 

RMB 

a~ 

BYTF'TR 

RMB 

9 

OBJPTR 

RMB 

2 

MEMPTR 

RMB 

2 

LINPTR 

RMB 

9 

A- 

PASS 

RMB 

1 

OF'CNT 

RMB 

1 

RNDM 

RMB 

3 

OPTPTR 

RMB 

2 

OPNPTR 

RMB 

2 

SAVF'TR 

RMB 

2 

MCOUNT 

RMB 

9 

A- 
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PAGE 


LOCN 

B1 

B2 

B3 




009C 




LSTPCM 

RMB 

2 

009E 




LASTPC 

RMB 


00A0 




OBJADR 

RMB 

2 

00A2 




LASTM 

RMB 

n 

00A4 




HASHCT 

RMB 

i 

OOA5 




ERRCNT 

RMB 

i 

00A6 




BYTCNT 

RMB 

i 

00A7 




BUFCNT 

RMB 

i 

OOA8 




LINCNT 

RMB 

i 

00A9 




ERRORS 

RMB 

i 

OOAA 




GAP 

RMB 

i 

OOAB 




MODFY 

RMB 

i 

OOAC 




PAGENO 

RMB 

2 

OOAE 




LIST 

RMB 

1 

OOAF 




SYMBOL 

RMB 

1 

OOBO 




GENER 

RMB 

1 

00B1 




PAGER 

RMB 

1 

00B2 




TAPE 

RMB 

1 

00B3 




MEMORY 

RMB 

1 

00B4 




OBJBUF 

RMB 

18 

00C6 




TITLE 

* 

RMB 

33 


0036 


* 

LINES 

EOU 

54 


OOOA 


EJCHR 

EGU 

*0A 





* 








ORG 

*100 

0100 




ERRSTK 

RMB 

256 

0200 




BYTSTK 

* 

RMB 

256 

0300 

8E AO 

7F 

* 

MAIN 

LDS 

#*A07F 

0303 

BB 

03 

26 


JSR. 

P1INIT 

0306 

BD 

03 

B1 


JSR 

PASONE 

0309 

BD 

03 

6F 


JSR 

P2INIT 

030C 

BD 

03 

D9 


JSR 

PASTWO 

030F 

BD 

03 

26 


JSR 

P1INIT 

0312 

BD 

03 

Bi 


JSR 

PASONE 

0315 

BD 

03 

6F 


JSR 

P3INIT 

0318 

BD 

05 

BB t 

A A C 

^JSR 

PASTHR 



©o f 


* EXTERNAL LINKAGES 

031B 

7E 

EO DO 

MON 

JMP 

*E0£tO 

031E 

86 

20 


OUTS 

LDA A 


0320 

7E 

El 

Pi 

OUTCH 

JMP 

*E1D1 

0323 

7E 

El D1 

TAPOUT 

JMP 

*E1D1 



• 


* 




(POL [ 0 

\ Sj OO 

Ml 

-IpPF 

W tA 

CP O a>o 

M 6 

€>0 €> O 

t\ 3 


U Cj 

3 O €>« o 

PA ® c? 

0£ 


n 

0 p ou h ^ 

10 E 45(5 C / 7 


C < 4 t> 


©&> F A 


&CJ 

lOf 

V 


p c9c>U 


c 


o 3 c>o 


U*3 A 
4T K 

LOa 

VOE'X. 

<,r x 

jHr 


£ e?oci -^. 

£ e>oLfUf 
f OO tftj 

$ 06 4 G 

$ e S o o 


V 


^ EDv}0 


SET STACK ************* 


0C? 


\-A 


0. F I'M. M>\ 


RETURN TO MONITOR PROGRAM 


0326 86 FF 


* 

* 

** P1INIT 

* PASS 1 INITIALIZATION. 

* RUN BEFORE A SERIES OF 
P1INIT LDA A #$FF 


MUST BE 
PASS 1 RUNS. 
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LOCN 

B1 

B2 

B3 






0328 

97 

AE 



STA 

A 

LIST 


032A 

97 

BO 



STA 

A 

GENER 


032C 

97 

AF 



STA 

A 

SYMBOL 


032E 

97 

59 



STA 

A 

PCFLAG 


0330 

40 




NEG 

A 



0331 

97 

A8 



STA 

A 

LINCNT 

INITIALIZE COUNT 

0333 

4F 




CLR 

A 



0334 

97 

B1 



STA 

A 

PAGER 

SET 'OFF' OPTIONS 

0336 

97 

AC 



STA 

A 

PAGENO 


0338 

97 

AD 



STA 

A 

PAGENO+1 


033A 

97 

A5 



STA 

A 

ERRCNT 

SET COUNT 

033C 

97 

56 



STA 

A 

ERRFLG 

CLEAR FLAG 

033E 

97 

B2 



STA 

A 

TAPE 


0340 

97 

B3 



STA 

A 

MEMORY 


0342 

97 

58 



STA 

A 

ENDFLG 

CLR FLAG 

0344 

97 

A9 



STA 

A 

ERRORS 


0346 

86 

7F 



LDA 

A 

♦ $7F 


0348 

97 

60 



STA 

A 

LBLMSK 

SET MASK 

034A 

CE 

01 

00 


LDX 


♦ERRSTK 


034D 

DF 

85 



STX 


ERRPTR 

SET POINTER 

034F 

BE 

40 



LDX 


LBLBEG 

GET LABEL TABLE START 

0351 

6F' 00 


CLRLBL 

CLR 


OrX 

SET WHOLE TABLE TO 0 

0353 

08 




INX 




0354 

9C 

42 



CPX 


LBLEND 

CHECK DONE 

0356 

26 

F9 



BNE 


CLRLBL 

LOOP TILL DONE 

0358 

CE 

00 

C6 


LDX 


♦TITLE 


035B 

86 

20 



LDA 

A 

♦ ' 


035D 

A7 

00 


SETTL 

STA 

A 

OrX 


035F 

08 




INX 




0360 

8C 

00 

E6 


CPX 


♦TITLE+32 

CHECK ALL DONE 

0363 

26 

F8 



BNE 


SETTL 

GO FINISH 

0365 

86 

04 



LDA 

A 

♦4 


0367 

A7 

00 



STA 

A 

OrX 

SET EOT 

0369 

CE 

00 

00 


LDX 


♦0 


036C 

DF 

4B 



STX 


PC 

SET PC TO 0 

036E 

39 




RTS 





* 

* 

** P2INIT 

* PASS 2 INITIALIZATION. MUST BE RUN 

* BEFORE A SERIES OF PASS 2 RUNS. 


036F 

86 

FF 


P2INIT LDA 

A 

♦ ♦FF 



0371 

97 

62 


STA 

A 

OBJINT 

SET TOGGLE 


0373 

97 

5D 


STA 

A 

P3FLG 

SET NOT PASS 3 

0375 

CE 

01 

00 

LDX 


♦ERRSTK 



0378 

DF 

85 


STX 


ERRPTR 

INITIALIZE 

ERROR PTR 

037A 

CE 

00 

00 

LDX 


♦0 



037D 

DF 

4B 


STX 


PC 

INITIALIZE 

PC 

037F 

CE 

FF 

FF 

LDX 


♦♦FFFF 



0382 

DF 

9C 


STX 


LSTPCM 



0384 

DF 

9E 


STX 


LASTPC 

SET OBJECT 

PC'S 

0386 

4F 



CLR 

A 




0387 

97 

A7 


STA 

A 

BUF.CNT 



0389 

97 

9A 


... STA 

A 

MCOUNT 



038B 

97 

9B 


STA 

A 

MCOUNTH 
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LOCN 

B1 

B2 

B3 






038D 

97 

58 



STA 

A 

ENDFLG 

CLEAR FLAG 

038F 

CE 

00 

B4 


LDX 


♦OBJBUF 


0392 

DF 

89 



STX 


OBJPTR 

SET OBJECT PTR 

0394 

BE 

49 



LDX 


MEMOBJ 


0396 

DF 

8B 



STX 


MEMPTR 

SET MEMORY PTR 

0398 

DF 

A2 



STX 


LASTM 


039A 

DE 

40 



LDX 


LBLBEG 

GET LABEL PTR 

039C 

A6 

00 


SETBIT 

LDA 

A 

OrX 

GET FIRST CHAR 

039E 

27 

04 



BEG 


NOLAB 

IF Or NO LABEL 

03A0 

8A 

80 



ORA 

A 

#$80 

SET FLAG BIT 

03A2 

A7 

00 



STA 

A 

OrX 

PUT BACK 

03A4 

C6 

08 


NOLAB 

LDA 

B 

#8 

SET COUNT 

03A6 

08 



ADVPTR 

I NX 



MOVE PTR 

03A7 

9C 

42 



CPX 


LBLEND 

SEE IF DONE 

03A9 

27 

05 



BEG 


P2IN3 


03AB 

5A 




DEC 

B 



03AC 

26 

F8 



BNE 


ADVPTR 

SEE IF AT NEW POSITION 

03AE 

20 

EC 



BRA 


SETBIT 

GO SET NEXT FLAG 

03B0 

39 



P2IN3 

RTS 





* 

* 

** P3INIT 

* PASS 3 INITIALIZATION 

036F P3INIT EQU P2INIT SAME AS PASS 2 

* 

* 

** PASONE 

* PERFORMS ASSEMBLY PASS 1 


03B1 

9F 

67 


PASONE 

STS 


SPSAVE 

SAVE SP 

03B3 

DE 

44 



LDX 


SRCBEG 

GET SOURCE POINTER 

03B5 

09 




DEX 



ADJUST 

03B6 

7F 

00 

8F 


CLR 


PASS 

SET PASS1 

03B9 

DF 

4D 


PASS1 

STX 


SRCPTR 

SAVE PTR 

03BB 

BD 

OB 

75 


JSR 


PARSE 

PARSE UP THE LINE 

03BE 

DF 

6F 



STX 


XTEMP3 

SAVE SOURCE POINTER 

03C0 

96 

4F 



LDA 

A 

LABEL 

GET FIRST CHAR OF LAB. 

03C2 

27 

03 



BEG 


PASSU 

IF NO LABEL 

03C4 

BD 

08 

A2 


JSR 


PUTLBL 

GO INSTALL LABEL 

03C7 

96 

55 


PASSU 

LDA 

A 

PRFLG 

GET PROCESS FLAG 

03C9 

26 

03 



BNE 


PASS12 

IF SETr PROCESS 

03CB 

BD 

OC 

44 


JSR 


FND222 

GO GET OPERATOR 

03CE 

DE 

6F 


PASS12 

LDX 


XTEMP3 

GET SOURCE PTR 

03D0 

96 

58 



LDA 

A 

ENDFLG 


03D2 

26 

04 


.. t •/; y' • ' 

BNE 


PASS13 


03D4 

9C 

46 



CPX 


SRCEND 

CHECK DNE 

03D6 

26 

El 



BNE 


PASS1 

IF NOT * LOOP 

03D8 

39 



PASS13 

RTS 





* 

* 

* 

** F'ASTUO 

* PERFORMS ASSEMBLY PASS 2 


03D9 

DE 

44 

PASTWO LDX 

SRCBEG 

POINT TO BEGIN. SOURCE 

03DB 

09 


DEX 


ADJUST 

03DC 

86 

01 

LDA A 

#$01 
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LOCN 

B1 

B2 

B3 






03DE 

97 

8F 



STA 

A 

PASS 

SET PASS 2 

03E0 

DF 

4D 


PASS2 

STX 


SRCPTR 

SAVE POINTER 

03E2 

DE 

4B 



LDX 


PC 


03E4 

DF 

6D 



STX 


XTEMP2 

SAVE PC 

03E6 

DE 

4D 



LDX 


SRCPTR 

GET POINTER- 

03E8 

BD 

OB 

75 

PASS2A 

JSR 


PARSE 

GO PARSE THE LINE 

03EB 

DF 

6F 



STX 


XTEMP3 

SAVE PTR 

03ED 

96 

4F 



LDA 

A 

LABEL 

GET FIRST CHAR 

03EF 

27 

09 



BEO 


PASS2B 

IF NOT THERE, SKIP 

03F1 

BD 

09 

05 


JSR 


FNDLBL 

LOCATE LABEL 

03F4 

A6 

00 



LDA 

A 

0,X 

GET FIRST CHAR 

03F6 

84 

7F 



AND 

A 

**7F 

RESET BIT 

03F8 

A7 

00 



STA 

A 

0,X 

PUT BACK 

03FA 

96 

55 


PASS2B 

LDA 

A 

PRFLG 

GET PROCESS FLAG 

03FC 

26 

03 



BNE 


PASS2X 

IF SET , DONT PROCESS 

03FE 

BD 

09 

IF 


JSR 


FNDOPT 

GET OPERATION 

0401 

96 

90 


PASS2X 

LDA 

A 

OPCNT 

CHECK BYTE COUNT 

0403 

27 

16 



BEO 


PASS2C 

IF 0, SKIP 

0405 

96 

5D 



LDA 

A 

P3FLG 

CHECK PASS 3 

0407 

27 

04 



BEO 


OBJGEN 

IF SO, GO GENERATE CODE 

040? 

96 

B2 



LDA 

A 

TAPE 

SEE IF TAPE ON 

040B 

27 

07 



BEO 


MEMGEN 

IF NOT, CHECK MEMORY 

040D 

BD 

14 

89 

OBJGEN 

JSR 


OBJCOD 

GO GENERATE CODE 

0410 

96 

5D 



LDA 

A 

P3FLG 

CHECK PASS3 

0412 

27 

07 



BEO 


PASS2C 

IF SO, SKIP MEMORY 

0414 

96 

B3 


MEMGEN 

LDA 

A 

MEMORY 

SEE IF MEMORY ON 

0416 

27 

03 



BEO 


PASS2C 

IF NOT, SKIP 

0418 

BD 

15 

77 


JSR 


MEMCOD 

GO PUT IN MEMORY 

04 IB 

96 

5D 


PASS2C 

LDA 

A 

P3FLG 

CHECK PASS3 

04 ID 

26 

03 



BNE 


SHORT 


041F 

7E 

04 

A4 


JMP 


N0ERR4 


0422 

96 

5E 


SHORT 

LDA 

A 

PRTFLG 

SEE IF PRINT 

0424 

27 

OD 



BEQ 


CHK2ER 

IF NOT, SKIP 

0426 

96 

AE 



LDA 

A 

LIST 

GET LIST FLAG 

0428 

27 

09 



BEQ 


CHK2ER 

SKIP IF NO LIST 

042A 

96 

90 



LDA 

A 

OPCNT 


042C 

36 




PSH 

A 



042D 

BD 

05 

Cl 


JSR 


PRTINF 

GO PRINT DATA 

0430 

32 




PUL 

A 



0431 

97 

90 



STA 

A 

OPCNT 

RESTORE COUNT 

0433 

86 

FF 


CHK2ER 

LDA 

A 

**FF 


0435 

97 

56 



STA 

A 

ERRFLG 

SET FLAG 

0437 

96 

A5 


CHKERR 

LDA 

A 

ERRCNT 

GET COUNT 

0439 

27 

3A 



BEQ 


NOERR 

IF Or NO ERRORS 

043B 

DE 

85 



LDX 


ERRPTR 

GET POINTER- 

043D 

EE 

00 



LDX 


0,X 

GET ERR ADDRESS 

043F 

9C 

4D 



CPX 


SRCPTR 

CHECK IF HERE 

0441 

26 

32 



BNE 


NOERR 

IF NOT, NO ERROR 

0443 

96 

AE 



LDA 

A 

LIST 

GET LIST FLAG 

0445 

26 

06 



BNE 


GETERR 

IF LIST ON, SOURCE PRINTED 

0447 

BD 

05 

FF 


JSR 


PRTDAT 

PRINT DATA 

044A 

BD 

06 

42 


JSR 


PRTSRC 

GO PRINT SOURCE TOO 

044D 

DE 

85 


GETERR 

LDX 


ERRPTR 

GET ERROR PTR 

044F 

7A 

00 

A5 


DEC 


ERRCNT 

COUNT ONE DOWN 

0452 

E6 

02 



LDA 

B 

2 , X 

GET TYPE 
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PAGE 


LOCN 

0454 

0456 

0458 

045A 

045D 

045F 

0461 

0464 

0466 

0468 

046B 

046C 

046D 

046E 

0470 

0473 

0475 

0478 

047A 

047B 

047D 

047F 

0481 

0483 

0485 

0487 

0489 

048C 

048F 

0491 

0493 

0496 

0498 

0499 

049A 

049B 

049D 

049F 

04A1 

04A4 

04A6 

04A8 

04AA 

04AC 

04AE 

04B1 


04B2 

04B4 

04B6 

04B8 

04BB 

04BC 



B1 

B2 

B3 





27 

15 



BEQ 

GETER2 

• 

D1 

81 



CMP B 

P2ERR1 

CHECK SAME 

26 

03 



BNE 

CHK2 


7F 

00 

81 


CLR 

P2ERR1 


D1 

82 


CHK2 

CMP B 

P2ERR2 


26 

03 



BNE 

CHK3 


7F 

00 

82 


CLR 

P2ERR2 


D1 

83 


CHK3 

CMP B 

P2ERR3 


26 

03 



BNE 

GETER2 


7F 

00 

83 


CLR 

P2ERR3 


08 



GETER2 

INX 



08 




INX 



08 




INX 



DF 

85 



STX 

ERRPTR 

STORE NEW PTR 

BD 

06 

51 


JSR 

PRTERR 

GO INSERT ERROR MESSAGE 

20 

C2 



BRA 

CHKERR 

GO SEE IF MORE ERRORS 

CE 

00 

81 

NOERR 

LDX 

♦P2ERR1 

POINT TO STORE 

86 

03 



LDA A 

#3 

SET COUNT 

36 



CERR 

PSH A 


SAVE COUNT 

DF 

77 



STX 

QTEMP3 

SAVE PLACE 

E6 

00 



LDA B 

0,X 

GET ERROR 

27 

15 



BEQ 

CNXT 

IF 0» GO NEXT 

96 

56 



LDA A 

ERRFLG 

GET FLAG 

27 

OA 



BEQ 

PRT2ER 


96 

AE 



LDA A 

LIST 

CHECK LIST ON 

26 

06 



BNE 

PRT2ER 


BD 

05 

FF 


JSR 

PRTDAT 


BD 

06 

42 


JSR 

PRTSRC 

PRINT INFO 

DE 

77 


PRT2ER 

LDX 

QTEMP3 

GET POINTER 

E6 

00 



LDA B 

0,X 

GET ERROR 

BD 

06 

51 


JSR 

PRTERR 

GO PRINT MESG 

DE 

77 


CNXT 

LDX 

QTEMP3 

GET POINTER 

08 




INX 


POINT NEXT 

32 




PUL A 

GET COUNT 


4A 




DEC A 


ONE DONE 

26 

DD 



BNE 

CERR 

LOOP TILL DONE 

96 

5F 


N0ERR2 

LDA A 

PAGFLG 

CHECK PAGE FLAG 

26 

03 



BNE 

N0ERR4 


BD 

11 

31 


JSR 

EJECT 


DE 

6F 


N0ERR4 

LDX 

XTEMP3 

GET SOURCE PTR 

96 

58 



LDA A 

ENDFLG 


26 

2C 



BNE 

FIN 


9C 

46 



CPX 

SRCEND 

CHECK IF DONE 

27 

03 



BEQ 

P2D0N 


7E 

03 

EO 


JMP 

PASS2 


39 



P2D0N 

* 

RTS 






** CONTRL 






* OUTPUT TAPE 

CONTROL CHARACTERS 

C6 

04 


CONTRL 

LDA B 

#4 

SET 4 CHARS 

27 

09 



BEQ 

CONDON 


A6 

00 


PCTRL 

LDA A 

0»X 


BD 

03 

23 


JSR 

TAPOUT 



08 INX 

5A DEC B 
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LOCN B1 B2 B3 
04BD 26 F7 
04BF 39 
04C0 00 
04C1 00 
04C2 00 
04C3 00 
04C4 00 
04C5 00 
04C6 00 
04C7 00 


04C8 C6 04 
04CA 27 09 
04CC CE F4 FF 
04CF 09 
04D0 26 FD 
04D2 5A 
04D3 26 F7 
04D5 39 


04D6 96 5D 
04D8 27 17 
04DA BD 07 BA 
04DD BD 06 39 
04E0 CE 05 49 
04E3 96 A9 
04E5 27 03 
04E7 CE 05 4B 
04EA BD 07 AB 
04ED 96 B2 
04EF 27 14 
04F1 BD 15 18 
04F4 86 53 
04F6 BD 03 23 
04F9 86 39 
04FB BD 03 23 
04FE 8D C8 
0500 CE 04 C4 
0503 8D AD 
0505 96 5D 
0507 27 2E 
0509 96 B3 
050B 27 09 
050D BD 15 F4 
0510 DE 8B 
0512 6F 00 
0514 6F 01 
0516 96 AF 
0518 26 44 


. BNE PCTRL 

CONDON RTS 

TAPEON FCB 0,0r0f0 



TAPEOF FCB Or Or 0,0 


* 

** DELAY 

* DELAY FOR TAPE CONTROL 

DELAY LDA B *4 

BEQ DELDON 

XLOOP LDX *$F4FF 

DECX DEX 

BNE DECX 

DEC B 

BNE XLOOP 

DELDON RTS 

* 

* 

* 

** FIN 

* END OF ASSEMBLY CLEAN 


FIN 

LDA A 

P3FLG 


BEQ 

LSTREC 


JSR 

PCRLF 


JSR 

PRT2 


LDX 

♦NOERHD 


LDA A 

ERRORS 


BEQ 

PRTMES 


LDX 

♦ERRHD 

PRTMES 

JSR 

PDATA 

CHKTAP 

LDA A 

TAPE 

■ ->i '> ’ 1 

BEQ 

FIN2 

LSTREC 

JSR 

PRTREC 


LDA A 

♦ 'S 


JSR 

TAPOUT 


LDA A 

#'9 


JSR 

TAPOUT 


BSR 

DELAY 


LDX 

♦TAPEOF 


BSR 

CONTRL 

FIN2 

LDA A 

P3FLG 


BEQ 

FIN6 


LDA A 

MEMORY 


BEQ 

FINS 


JSR 

FIXCNT 


LDX 

MEMPTR 

SETO 

CLR 

0 r X 


CLR 

1 rX 

FINS 

LDA A 

SYMBOL 


BNE 

SYMGEN 


SET COUNTER 


UP 

CHECK PASS3 

IF SOr PUNCH LAST RECORD 
CR LF 


SEE IF ANY ERRORS 

IF NOT r GOT PTR 

MESSAGE 

PRINT IT 

SEE IF TAPE ON 

IF NOTr SKIP 

GO PUNCH LAST 


PUNCH S9 

DELAY BEFORE TURN OFF 


CHECK PASS3 
IF SOr SKIP 
CHECK MEMORY OPTION 
IF OFF , SKIP 
GO SET BYTE COUNT 
GET POINTER 


CHECK SYMBOL ON 
IF SOr GO PRINT 



( 


L 
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(• 


( 


C 


LOCN 

B1 

B2 

B3 






051A 

96 

AE 



LDA 

A 

LIST 

SEE IF LIST ON 

051C 

27 

19 



BEG 


FIN6 

IF NOT i SKIP 

051E 

BD 

07 

BA 

FIN3 

JSR 


PCRLF 

CR LF 

0521 

96 

B1 



LDA 

A 

PAGER 

SEE IF PAGE ON 

0523 

27 

OA 



BEG 


FIN4 

IF NOT r SKIP 

0525 

96 

B1 



LDA 

A 

PAGER 

SEE IF PAGE ON 

0527 

27 

06 



BEG 


FIN4 

IF NOT t SKIP 

0529 

CE 

11 

D1 


LDX 


♦EJSTR 


052C 

7E 

07 

AB 


JMP 


PD AT A 

PAGE EJECT 

052F 

C6 

04 


FIN4 

LDA 

B 

#4 


0531 

BD 

07 

BA 

GAPX 

JSR 


PCRLF 


0534 

5A 




DEC 

B 



0535 

26 

FA 



BNE 


GAPX 

PRINT 4 LINES 

0537 

39 



FIN6 

RTS 



DONE 

0538 

20 



SYMHD 

FCC 


' SYMBOL 

TABLE!' 


0539 20 
053A 20 
053B 53 
053C 59 
053D 4D 
053E 42 
053F 4F 
0540 4C 
0541 20 
0542 54 
0543 41 
0544 42 
0545 4C 
0546 45 
0547 3A 
0548 04 
0549 4E 
054A 4F 
054B 20 
054C 45 
054D 52 
054E 52 
054F 4F 
0550 52 
0551 28 
0552 53 
0553 29 
0554 20 
0555 44 
0556 45 
0557 54 
0558 45 
0559 43 
055A 54 
055B 45 
055C 44 
055D 04 


FCB 

NOERHD FCC 
ERRHD FCC 


4 

'NO' 


ERROR(S) DETECTED‘ 


FCB 


* 

* 

** SYMGEN 



TSC 6800 

ASSEMBLER SYSTEM 01 

.4 


# 

LOCN 

B1 

B2 

B3 










* SORT 

AND PRINT SYMBOL 

TABLE 

055E 

96 

5B 


SYMGEN 

LDA 

A 

P3FLG 

CHECK PASS 3 

0560 

27 

BC 



BEQ 


FIN3 

IF SOf DONE 

0562 

C6 

04 



LBA 

B 

#4 


0564 

Bn 

OF 

B9 


JSR 


TYP11A 

GO SPACE 4 

0567 

CE 

05 

38 


LBX 


♦SYMMD 


056A 

BLi 

07 

AB 


JSR 


PBATA 

PRINT HEADER 

056D 

BB 

13 

FO 


JSR 


SHELL 

GO SORT 

0570 

BE 

40 



LBX 


LBLBEG 


0572 

09 




BEX 




0573 

BF 

69 



STX 


XTEMP 

SET POINTER 

0575 

BB 

07 

BA 

LSTSYM 

JSR 


PCRLF 


0578 

C6 

04 



LBA 

B 

*4 

SET 4 LABELS 

057A 

BE 

69 


GETSYM 

LBX 


XTEMP 

GET POINTER 

057C 

08 




INX 




057D 

A6 

00 



LBA 

A 

OfX 


057F 

27 

29 



BEQ 


NOPRT 

IF Of NO LABEL 

0581 

37 




PSH 

B 



0582 

C6 

06 



LDA 

B 

#6 

SET 6 CHARS 

0584 

A6 

00 


LABOUT 

LBA 

A 

OfX 

GET CHAR 

0586 

BB 

03 

20 


JSR 


OUTCH 

PRINT IT 

0589 

08 




INX 




058A 

5A 




DEC 

B 


CHECK DONE 

058B 

26 

F7 



BNE 


LABOUT 


058D 

BB 

-oe- 

-G9- 


JSR 


0UT2^ 

PRINT 2 SPACES 

0590 

A6 

00 



LDA 

A 

OfX 

GET MS ADDRESS 

0592 

BB 

oc 

DO 


JSR 


OUTHEX 

PRINT IT 

0595 

08 




INX 




0596 

A6 

00 



LBA 

A 

OfX 

GET LS VALUE 

0598 

BB 

oc 

DO 


JSR 


OUTHEX 

PRINT IT 

059B 

DF 

69 



STX 


XTEMP 

SAVE PTR LOCATION 

059H 

BB 

06 39 

3d 

JSR 


PRT2-3 

PRINT ^SPACES 

05A0 

33 




PUL 

B 


GET LINE COUNT 

05A1 

9C 

42 



CPX 


LBLENB 

CHECK TABLE DONE 

05A3 

27 

13 



BEQ 


SYMPRT 


05A5 

5A 



CONT 

DEC 

B 


SEE IF 4 YET 

05A6 

26 

B2 



BNE 


GETSYM 

IF NOTf DO AGAIN 

05A8 

20 

CB 



BRA 


LSTSYM 

OTHERWISEf START i 

05AA 

37 



NOPRT 

PSH 

B 



05AB 

C6 

07 



LDA 

B 

#7 


05AD 

08 



MOVPTR 

INX 




05AE 

5A 




DEC 

B 



05AF 

26 

FC 



BNE 


MOVPTR 

ADVANCE PTR 

05B1 

33 




PUL 

B 



05B2 

BF 

69 



STX 


XTEMP 

SAVE PTR 

05B4 

9C 

42 



CPX 


LBLENB 

CHECK BONE 

05B6 

26 

C2 



BNE 


GETSYM 


05B8 

7E 

05 

IE 

SYMPRT 

JMP 


FIN3 



PAGE 


X' 




05BB 7F 00 5D 
05BE 7E 03 D9 


* 

* 

** PASTHR 

* PERFORM ASSEMBLY PASS 

PASTHR CLR P3FLG 

JMP PASTWO 

* 


SET PASS 3 
BO PASS 2 


10 
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LOCN 

B1 

B2 B3 








** PRTINF 






* PRINT 

ASSEMBLED DATA 


05C1 

8D 

3C 

PRTINF 

BSR 

PRTDAT 

GO PRINT ADDRr DATA 

05C3 

8D 

7D 


BSR 

PRTSRC 

PRINT SOURCE 

05C5 

CE 

02 00 


LDX 

♦BYTSTK 


05C8 

DF 

71 


STX 

XTEMP4 

SET MULTIPLE DATA PTR 

05CA 

96 

5A 


LDA A 

DATFLG 

CHECK MULTIPLE 

05CC 

26 

01 


BNE 

PRTINA 

IF SETr ITS THERE 

05CE 

39 


PRTIND 

RTS 


DONE 

05CF 

96 

BO 

PRTINA 

LDA A 

GENER 

CHECK GENERATE FLAG 

05D1 

27 

FB 


BEG 

PRTIND 

IF CLRr NO PRINT 

05D3 

96 

90 

PRUNE 

LDA A 

OPCNT 

GET OPERAND COUNT 

05D5 

DE 

6D 

PRTINB 

LDX 

XTEMP2 

GET OLD PC 

05D7 

08 


PRTINC 

INX 


BUMP 

05D8 

4A 



DEC A 


DO UNTIL PAST PRINTED 

05D9 

26 

FC 


BNE 

PRTINC 


05DB 

DF 

6D 


STX 

XTEMP2 

SAVE NEW PRINTABLE PC 

05DD 

86 

01 


LDA A 

#1 


05DF 

97 

90 


STA A 

OPCNT 

SET COUNT 

05E1 

DE 

71 


LDX 

XTEMP4 

GET STACK PTR 

05E3 

9C 

87 


CPX 

BYTPTR 

CHECK FOR DATA 

05E5 

27 

E7 


BEG 

PRTIND 

IF NO DATA* EXIT 

05E7 

A6 

00 


LDA A 

OtX 

GET CHAR (BYTE) 

05E9 

97 

7E 


STA A 

OPCODE 

PUT IN PLACE 

05EB 

08 



INX 


BUMP POINTER 

05EC 

9C 

87 


CPX 

BYTPTR 

CHECK MORE DATA 

05EE 

27 

08 


BEG 

PRTING 

IF NOr DONE 

05F0 

7C 

00 90 


INC 

OPCNT 

SET COUNT =2 

05F3 

A6 

00 


LDA A 

0»X 

GET NEXT BYTE 

05F5 

97 

7F 


STA A 

0P1 

PUT IN PLACE 

05F7 

08 



INX 


BUMP PTR 

05F8 

DF 

71 

PRTING 

STX 

XTEMP4 

SAVE POINTER 

05FA 

BD 

05 FF 


JSR 

PRTDAT 

GO PRINT DATA 

05FD 

20 

D4 


BRA 

PRTINE 

LOOP TILL DONE 


* 

* 

## PRTDAT 

* PRINT ADDRESS AND DATA 


05FF 

BD 

07 

BA 

PRTDAT 

JSR 


PCRLF 

GO DO CR LF 

0602 

BD 

03 

IE 


JSR 


OUTS 

PRINT A SP 

0605 

96 

59 



LDA 

A 

PCFLAG 

CHECK FOR PRINT PC 

0607 

26 

08 



BNE 


PRTPC 

IF SETr DO IT 

0609 

BD 

OC 

C7 


JSR 


0UT2S 


060C 

BD 

OC 

C5 


JSR 


0UT3S 

SKIP FIELD 

060F 

20 

25 



BRA 


PRT1 


0611 

96 

6D 


PRTPC 

LDA 

A 

XTEMP2 

GET CURRENT PC 

0613 

BD 

OC 

DO 


JSR 


OUTHEX 

PRINT MS 

0616 

96 

6E 



LDA 

A 

XTEMP2+1 

GET LS 

0618 

BD 

OC 

CC 


JSR 


OUTHXS 

PRINT IT 

061B 

D6 

90 



LDA 

B 

OPCNT 

GET COUNT 

06 ID 

27 

17 



BEG 


PRT1 


061F 

96 

7E 



LDA 

A 

OPCODE 


0621 

BD 

OC 

CC 


JSR 


OUTHXS 

PRINT OPCODE 

0624 

5A 




DEC 

B 



0625 

27 

12 



BEG 


PRT2 

SEE IF DONE 
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LOCN 

B1 

B2 

B3 







0627 

96 

7F 



LDA 

A 

DPI 



062? 

BD 

OC 

CC 


JSR 


GUTHXS 

PRINT 

IT 

062C 

5A 




DEC 

B 




062D 

27 

OD 



BEG 


PRT3 



062F 

96 

80 



LDA 

A 

0P2 



0631 

BD 

OC 

CC 


JSR 


OUTHXS 



0634 

20 

09 



BRA 


PRT4 



0636 

BD 

OC 

C5 

PRT1 

JSR 


0UT3S 



0639 

BD 

OC 

C5 

PRT2 

JSR 


0UT3S 



063C 

BD 

OC 

C5 

PRT3 

JSR 


0UT3S 



063F 

7E 

03 

IE 

PRT4 

Or 

JMP 


OUTS 







** PRTSRC 









* PRINT 

A LINE 

OF SOURCE 



0642 

DE 

8D 


PRTSRC 

LDX 


LINPTR 

GET POINTER 

0644 

A6 

00 


PRTS1 

LDA 

A 

0 r X 

GET A 

CHAR 

0646 

08 




INX 



POINT 

NEXT 

0647 

81 

OD 



CMP 

A 

♦ *D 

CHECK 

FOR CR 

0649 

27 

05 



BEG 


PRTS2 

IF SO t 

DONE 

064B 

BD 

03 

20 


JSR 


OUTCH 

PRINT 

IT 

064E 

20 

F4 



BRA 


PRTSl 

DO AGAIN 

0650 

39 



PRTS2 

RTS 



DONE 



* 

** PRTERR 






* INSERT ERROR MESSAGE 

INTO LISTING 

0651 

CE 

06 

81 

PRTERR 

LDX 

♦MSGHD 


0654 

BD 

07 

B2 

'" v " 

JSR 

PSTR 

PRINT HEADING 

0657 

7F 

00 

56 


CLR 

ERRFLG 

SET PRINTED FLAG 

065A 

CE 

06 

69 


LDX 

♦MSGTBL 

POINT TO TABLE 

065D 

58 




ASL 

B 

MULT ERROR ♦ * 2 

065E 

27 

04 



BEG 

GOTMSG 

CHECK IF GOT 

0660 

08 



PTNXT 

INX 


POINT NEXT ADDRESS 

0661 

5A 




DEC 

B 

COUNT OFF 

0662 

26 

FC 



BNE 

PTNXT 

CYCLE 

0664 

EE 

00 


GOTMSG 

LDX 

0»X 

GET TEXT POINTER 

0666 

7E 

07 

AB 

* 

JMP 

PDATA 

GO PRINT MESG 

0669 

06 

87 


MSGTBL 

FDB 

MESGO 

■ 

066B 

06 

9D 



FDB 

’ MESG1 


066D 

06 

AE 



; FDB 

MESG2 


066F 

06 

C6 



FDB 

MESG3 


0671 

06 

DE 



FDB 

MESG4 


0673 

06 

F9 



FDB 

MESG5 


0675 

07 

16 



FDB 

MESG6 


0677 

07 

2F 



FDB 

MESG7 


0679 

07 

3C 



FDB 

MESG8 


067B 

07 

53 



FDB 

MESG? 


067D 

07 

78 



FDB 

MESG10 


067F 

07 

8E 


* 

FDB 

MESG11 


0681 

2A 



* 

MSGHD 

FCC 

'** ' 


0682 

2A 







0683 

20 







0684 

20 







0685 

20 



• ’ ' 
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C 


c 


LOCN 

B1 B2 B3 



0686 

04 


FCB 



* 


0687 

53 

MESGO 

FCC 

0688 

59 



0689 

4D 



068A 

42 



068B 

4F 



068C 

4C 



068D 

20 



068E 

54 



068F 

41 



0690 

42 



0691 

4C 



0692 

45 



0693 

20 



0694 

4F 



0695 

56 



0696 

45 



0697 

52 



0698 

46 



0699 

4C 



069A 

4F 



069B 

57 



069C 

04 


FCB 

069D 

55 

MESG1 

FCC 

069E 

4E 



069F 

44 



06A0 

45 



06A1 

46 



06A2 

49 



06A3 

4E 



06A4 

45 



06A5 

44 



06A6 

20 



06A7 

53 



06A8 

59 



06A9 

4D 



06AA 

42 



06AB 

4F 



06AC 

4C 



06AD 

04 


FCB 

06AE 

4D 

MESG2 

FCC 

06AF 

55 



06B0 

4C 



06B1 

54 



06B2 

49 



06B3 

50 



06B4 

4C 



06B5 

59 



06B6 

20 



06B7 

44 



06B8 

45 



06B9 

46 



06BA 

49 



06BB 

4E 




SYMBOL TABLE OVERFLOW' 


UNDEFINED SYMBOL 


multiply Defined symbol 



TSC 6800 ASSEMBLER SYSTEM 01.4 


PAGE 14 


LOCN B1 B2 B3 
06BC 45 
06BB 44 
06BE 20 
06BF 53 
06C0 59 
06C1 4D 
06C2 42 
06C3 4F 
06C4 4C 
06C5 04 

06C6 55 MESG3 

06C7 4E 

06C8 52 

06C9 45 

06CA 43 

06CB 4F 

06CC 47 

06CD 4E 

06CE 49 

06CF 5A 

06B0 41 

06D1 42 

06B2 4C 

06D3 45 

06D4 20 

06U5 4D 

06 Ei 6 4E 

061*7 45 

06D8 4D 

06B9 4F 

06DA 4E 

06DB 49 

06DC 43 

06DD 04 

06DE 49 MESG4 

06DF 4C 

06E0 4C 

06E1 45 

06E2 47 ' 

06E3 41 
06E4 4C 
06E5 20 
06E6 43 
06E7 48 
06E8 41 
06E9 52 
06EA 41 
06EB 43 
06EC 54 
06ED 45 
06EE 52 
06EF 20 
06F0 49 
06F1 4E 
06F2 20 


FCB 

FCC 


FCB 

FCC 


4 

'UNRECOGNIZABLE MNEMONIC' 


4 

'ILLEGAL CHARACTER IN LABEL' 
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LOCN B1 B2 B3 
06F3 4C 
06FA 41 
06F5 42 
06F6 45 
06F7 4C 
06F8 04 
06F9 49 
06FA 4C 
06FB 4C 
06FC 45 
06FD 47 
06FE 41 
06FF 4C 
0700 20 
0701 43 
0702 48 
0703 41 
0704 52 
0705 41 
0706 43 
0707 54 
0708 45 
0709 52 
070A 20 
070B 49 
070C 4E 
07 OB 20 
070E 4F 
070F 50 
0710 45 
0711 52 
0712 41 
0713 4E 
0714 44 
0715 04 
0716 52 
0717 45 
0718 4C 
0719 41 
071A 54 
071B 49 
071C 56 
071D 45 
071E 20 
071F 42 
0720 52 
0721 41 
0722 4E 
0723 43 
0724 48 
0725 20 
0726 54 
0727 4F 
0728 4F 
0729 20 


MESG5 


MESG6 


FCB 

FCC 


FCB 

FCC 


4 

'ILLEGAL CHARACTER IN OPERAND 


4 

'RELATIVE BRANCH TOO LONG' 
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LOCN 

B1 

072A 

4C 

072B 

4F 

072C 

4E 

072D 

47 

072E 

04 

072F 

53 

0730 

59 

0731 

4E 

0732 

54 

0733 

41 

0734 

58 

0735 

20 

0736 

45 

0737 

52 

0738 

52 

0739 

4F 

073A 

52 

073B 

04 

073C 

49 

073D 

4C 

073E 

4C 

073F 

45 

0740 

47 

0741 

41 

0742 

4C 

0743 

20 

0744 

49 

0745 

4E 

0746 

44 

0747 

45 

0748 

58 

0749 

20 

074A 

56 

074B 

41 

074C 

52 

074D 

49 

074E 

41 

074F 

42 

0750 

4C 

0751 

45 

0752 

04 

0753 

49 

0754 

4C 

0755 

4C 

0756 

45 

0757 

47 

0758 

41 

0759 

4C 

075A 

20 

075B 

43 

075C 

48 

075D 

41 

075E 

52 

075F 

41 

0760 

43 


MESG7 


MESG8 



MESG9 


FCB 4 

FCC 'SYNTAX ERROR' 


FCB A 

FCC 'ILLEGAL INDEX VARIABLE' 




FCB 4 

FCC 'ILLEGAL CHARACTER FOR SPECIFIED BASE' 
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LOCN 

B1 B2 B3 

0761 

54 

0762 

45 

0763 

52 

0764 

20 

0765 

46 

0766 

4F 

0767 

52 

0768 

20 

0769 

53 

076A 

50 

076B 

45 

076C 

43 

076D 

49 

076E 

46 

076F 

49 

0770 

45 

0771 

44 

0772 

20 

0773 

42 

0774 

41 

0775 

53 

0776 

45 

0777 

04 

0778 

49 

0779 

4C 

077A 

4C 

077B 

45 

077C 

47 

077D 

41 

077E 

4C 

077F 

20 

0780 

4F 

0781 

50 

0782 

54 

0783 

49 

0784 

4F 

0785 

4E 

0786 

20 

0787 

53 

0788 

57 

0789 

49 

078A 

54 

078B 

43 

078C 

48 

078D 

04 

078E 

54 

078F 

4F 

0790 

4F 

0791 

20 

0792 

4D 

0793 

41 

0794 

4E 

0795 

59 

0796 

20 

0797 

4F 


MESG10 


MESG11 


FCB 

FCC 


FCB 

FCC 


4 

' ILLEGAL OPTION SWITCH' 


4 

'TOO MANY OPERANDS (DATA)' 
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LOCN 

B1 

B2 

B3 






0798 

50 








0799 

45 








079A 

52 








079B 

41 








079C 

4E 








079D 

44 








079E 

53 








079F 

20 








07A0 

28 








07A1 

44 








07A2 

41 








07A3 

54 








07A4 

41 








07A5 

29 








07A6 

04 




FOB 

4 







* 









** PPATA 








* PRINT 

STRINGS 



07A7 

BD 

03 

20 

PLOOP 

JSR 

OIJTCH 

PRINT 

CHAR 

07AA 

08 




INX 


POINT 

NEXT 

07AB 

A6 

00 


PDATA 

LDA A 

OfX 

GET A 

CHAR 

07 AD 

81 

04 



CMP A 

#4 

CHECK 

FOR EOT 

07AF 

26 

F6 



BNE 

PLOOP 

IF NOT 

fPRINT IT 

07B1 

39 




RTS 


DONE 



* 

** PSTR 






* PRINT 

CRfLF 

THEN STRING 

07B2 

DF 

65 


PSTR 

STX 

XSAVE 

SAVE X 

07B4 

8D 

04 



BSR 

PCRLF 


07B6 

DE 

65 



LDX 

XSAVE 

GET POINTER BAC K 

07B8 

20 

FI 



BRA 

PDATA 

GO PRINT IT 





** PCRLF 







* PRINT 

CR AND 

LF 


07BA 

CE 

07 

CF 

PCRLF 

LDX 

#CRLF 

POINT 

07BD 

8D 

EC 



BSR 

PDATA 

GO PRINT 

07BF 

96 

A8 



LDA A 

LINCNT 

GET LINE COUNT 

07C1 

4C 




INC A 



07C2 

97 

A8 



STA A 

LINCNT 

BUMP IT 

07C4 

81 

36 



CMP A 

♦LINES 

SEE IF TIME TO EJECT 

07C6 

22 

04 



BHI 

PCRLF2 

IF SO, GO DO IT 

07C8 

7F 

00 

5C 

PCRLF1 1 

CLR 

EJFLG 

CLEAR FLAG 

07CB 

39 




RTS 


DONE 

07CC 

7E 

11 

31 

PCRLF2 

JMP 

EJECT 

GO PAGE EJECT 

07CF 

OD 



CRLF 

FCB 

$D'$A'Or 

o 

•* 

o 

o 

07D0 

OA 







07D1 

00 







07D2 

00 







07D3 

00 







07D4 

00 







07D5 

04 








* 

** OPSERR 

* FATAL ERROR ROUTINE 

* GENERATES 3 NOP'S 
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LOCN 

B1 

B2 

B3 






07D6 

36 



OPSERR 

PSH 

A 



07D7 

86 

01 



LDA 

A 

#01 


07D9 

97 

7E 



STA 

A 

OPCODE 


07DB 

97 

7F 



STA 

A 

0P1 


07DB 

97 

80 



STA 

A 

0P2 


07BF 

97 

59 



STA 

A 

PCFLAG 

MAKE SURE PC ON 

07E1 

BB 

OC 

72 


JSR 


ADDPC3 


07E4 

32 



* 

PUL 

A 







** ASMERR 








* KEEP 

TRACK OF ASSEMBLY 

ERRORS 

07E5 

36 



ASMERR 

PSH 

A 



07E6 

97 

84 



STA 

A 

LSTERR 

SAVE ERROR- 

07E8 

32 




PUL 

A 



07E9 

7D 

00 

56 


TST 


ERRFLG 

CHECK ERROR SUPPRESS 

07EC 

26 

33 



BNE 


ASME2 

IF ON t DONT PROCESS 

07EE 

C6 

FF 



LDA 

B 

#*FF 


07F0 

D7 

A9 



STA 

B 

ERRORS 

SET FLAG 

07F2 

7D 

00 

8F 


TST 


PASS 

CHECK PASS COUNT 

07F5 

26 

2D 



BNE 


ASME3 

IF NOT PASS1 t SKIP 

07F7 

D6 

A5 



LDA 

B 

ERRCNT 

GET COUNT 

07F9 

Cl 

55 



CMP 

B 

*85 

CHECK EXCESS 

07FB 

27 

24 



BEQ 


ASME2 

IF SOr IGNORE 

07FD 

36 




PSH 

A 


SAVE ERROR # 

07F E 

96 

4D 



LDA 

A 

SRCPTR 

GET HIGH 

0800 

B6 

4E 



LDA 

B 

SRCPTR+1 

GET LOW 

0802 

BE 

85 



LDX 


ERRPTR 

GET STACK POINTER- 

0804 

A7 

00 



STA 

A 

OrX 

STORE HIGH 

0806 

E7 

01 



STA 

B 

1 *X 

STORE LOW 

0808 

32 




PUL 

A 


GET ERROR * 

0809 

A7 

02 



STA 

A 

2rX 

SAVE # 

080B 

08 




I NX 




080C 

08 




I NX 




080D 

08 




INX 



ADVANCE ERROR PTR 

080E 

DF 

85 



STX 


ERRPTR 

SAVE IT 

0810 

96 

A5 



LDA 

A 

ERRCNT 

GET COUNT OF ERRORS 

0812 

4C 




INC 

A 


KICK 

0813 

97 

A5 



STA 

A 

ERRCNT 


0815 

81 

55 



CMP 

A 

*85 

ERROR LIMIT? 

0817 

26 

08 



BNE 


ASME2 


0819 

CE 

08 

36 


LDX 


♦TOOMAN 


081C 

8D 

94 


• 

BSR 


PSTR 


081E 

9E 

67 



LDS 


SPSAVE 

GET PROPER RET ADR. 

0820 

39 




RTS 



DONE 

0821 

86 

FF 


ASME2 

LDA 

A 

#*FF 


0823 

39 




RTS 



DONE 

0824 

D6 

81 


ASME3 

LDA 

B 

P2ERR1 

CHECK EMPTY 

0826 

26 

03 



BNE 


ASME4 


0828 

97 

81 



STA 

A 

P2ERR1 


082A 

39 




RTS 




082B 

B6 

82 


ASME4 

LDA 

B 

P2ERR2 


082B 

26 

03 



BNE 


ASME5 


082F 

97 

82 



STA 

A 

P2ERR2 


0831 

39 




RTS 




0832 

97 

83 


ASME5 

STA 

A 

P2ERR3 
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LOCN 

B1 

B2 

B3 






0834 

39 




RTS 




0835 

39 




RTS 



DONE 

0836 

45 



TOOMAN 

FCC 


'ERROR 

LIMIT EXCEEDED' 

0837 

52 








0838 

52 








0839 

4F 








083A 

52 








083B 

20 








083C 

4C 








083B 

49 








083E 

4D 



% 





083F 

49 








0840 

54 








0841 

20 








0842 

45 








0843 

58 








0844 

43 








0845 

45 








0846 

45 








0847 

44 








0848 

45 








0849 

44 








084A 

04 




FCB 


4 






o' 

** RANDOM 








* RANDOM NUMBER GENERATOR USED FOR 





* HASHING FUNCTION 


084B 

37 



RANDOM 

PSH 

B 


SAVE B 

084C 

36 




PSH 

A 


AND A 

084D 

C6 

18 



LDA 

B 

#24 

SET FOR 24 CYCLES 

084F 

96 

91 


LOOP 

LDA 

A 

RNDM 

GET FIRST BYTE 

0851 

48 




ASL 

A 



0852 

48 




ASL 

A 



0853 

48 




ASL 

A 



0854 

98 

91 



EOR 

A 

RNDM 

XOR BIT 28 WITH 31 

0856 

48 




ASL 

A 



0857 

48 




ASL 

A 


GET RESULT IN CARRY 

0858 

79 

00 

93 


ROL 


RNDM+2 


085B 

79 

00 

92 


ROL 


RNDM+1 

. * A > n. ‘ *. 

085E 

79 

00 

91 


ROL 


RNDM 

SHIFT ALL LEFT WITH 

0861 

5A 




DEC 

B 


COUNT OFF 

0862 

26 

EB 



BNE 


LOOP 

LOOP UNTIL DONE 

0864 

32 




PUL 

A 



0865 

33 




PUL 

B 



0866 

39 



* 

** HASH 

RTS 








* HASH 

A SYMBOL TO A TABLE ADDRESS 

0867 

CE 

00 

4F 

HASH 

LDX 


♦LABEL 

GET START OF LABEL 

086A 

7F 

00 

A4 


CLR 


HASHCT 

SET HASH COUNTER TO 

086D 

A6 

00 



LDA 

A 

OfX 

GET FIRST CHAR 

086F 

AB 

05 



ADD 

A 

5»X 


0871 

97 

93 



STA 

A 

RNDM+2 

FOLD THE LABEL 

0873 

A6 

01 



LDA 

A 

lfX 


0875 

A9 

04 



ADC 

A 

4 f X 
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LOCN 

B1 

B2 

B3 






0877 

97 

92 



STA 

A 

RNDM+1 


0879 

A6 

02 



LDA 

A 

2 r X 


087B 

A9 

03 



ADC 

A 

3 r X 


087D 

97 

91 



STA 

A 

RNDM 

AND PUT IN RANDOM GEN 

087F 

7C 

00 

A4 

REHASH 

INC 


HASHCT 

KICK COUNTER 

0882 

BD 

08 

4B 

MIX2 

JSR 


RANDOM 

MIX EM UP 

0885 

96 

93 



LDA 

A 

RNDM+2 

GET RESULT 

0887 

84 

F8 



AND 

A 

**F8 

FIX FOR 8 BYTES 

0889 

D6 

92 



LDA 

B 

RNDM+1 


088B 

C4 

IF 



AND 

B 

#*1F 

LIMIT TO 8K 

088D 

9B 

41 



ADD 

A 

LBLBEG+1 

ADD ON BEGINNING 

088F 

D9 

40 



ADC 

B 

LBLBEG 

ADDRESS OF TABLE 

0891 

97 

6A 



STA 

A 

XTEMP+1 


0893 

D7 

69 



STA 

B 

XTEMP 

SET EFFECTIVE ADDRESS 

0895 

D1 

42 



CMP 

B 

LBLEND 


0897 

22 

E9 



BHI 


MIX2 


0899 

25 

04 



BCS 


MIX3 


089B 

91 

43 



CMP 

A 

LBLEND+1 


089D 

22 

E3 



BHI 


MIX2 

SEE IF IN RANGE 

089F 

DE 

69 


MIX3 

LDX 


XTEMP 

GET THE ADDRESS 

08A1 

39 




RTS 



DONE 


* 

** F'UTLBL 






* ENTER 

LABEL 

IN SYMBOL 

TABLE 

08A2 

8D 

C3 


PUTLBL 

BSR 


HASH 

GO HASH IT 

08A4 

A6 

00 


CHKFRE 

LDA 

A 

0,X 

GET SYMBOL ENTRY 

08A6 

27 

13 



BEQ 


PUTIT 

IF FREE, TAKE IT 

08A8 

BD 

08 

DE 


JSR 


CHKLBL 

GO SEE IF SAME 

08AB 

27 

OB 



BEQ 


HERROR 

IF S0> MULTIPLE OCCURENCE 

08AD 

BD 

08 

7F 


JSR 


REHASH 

GO REHASH ON COLLISION 

08B0 

96 

A4 



LDA 

A 

HASHCT 

GET COUNTER 

08B2 

81 

28 



CMP 

A 

*40 

IF 40 COLLISIONS* FULL 

08B4 

26 

EE 



BNE 


CHKFRE 

GO SEE IF FREE 

08B6 

86 

00 



LDA 

A 

*0 

SET ERROR 0 

08B8 

7E 

07 

E5 

HERROR 

JMP 


ASMERR 

GO REPORT ERROR- 

08BB 

96 

4F 


PUTIT 

LDA 

A 

LABEL 

GET CHAR 

08BD 

A7 

00 



STA 

A 

0 r X 

PUT IN TABLE 

08BF 

96 

50 



LDA 

A 

LABEL+1 


08C1 

A7 

01 



STA 

A 

lfX 


08C3 

96 

51 



LDA 

A 

LABEL+2 


08C5 

A7 

02 



STA 

A 

2rX 


08C7 

96 

52 



LDA 

A 

LABEL+3 


08C9 

A7 

03 



STA 

A 

3»X 


08CB 

96 

53 



LDA 

A 

LABEL+4 


08CD 

A7 

04 



STA 

A 

A,X 


08CF 

96 

54 



LDA 

A 

LABEL+5 


08D1 

A7 

05 



STA 

A 

5*X 


08D3 

96 

4B 



LDA 

A 

PC 


08D5 

A7 

06 



STA 

A 

6 r X 

STORE PC (HI) 

08D7 

96 

4C 



LDA 

A 

PC+1 


08D9 

A7 

07 



STA 

A 

7 ,X 

STORE PC (LO) 

08DB 

DF 

75 



STX 


LTEMP 

SAVE LABEL ADDRESS 

08DD 

39 




RTS 



DONE 


* 

** CHKLBL 
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LOCN 

B1 

B2 B3 









* SEE 

IF LABELS MATCH 


08DE 

86 

02 

CHKLBL 

LDA 

A 

*2 

SET ERROR 

08E0 

E6 

00 


LDA 

B 

OfX 


08E2 

D4 

60 


AND 

B 

LBLMSK 


08E4 

D1 

4F 


CMP 

B 

LABEL 


08E6 

26 

1C 


BNE 


CKDONE 

IF NOf WERE OK 

08E8 

D6 

50 


LDA 

B 

LABEL+1 


08EA 

El 

01 


CMP 

B 

lrX 


08EC 

26 

16 


BNE 


CKDONE 


08EE 

D6 

51 


LDA 

B 

l.ABEL+2 


08F0 

El 

02 


CMP 

B 

2 fX 


08F2 

26 

10 


BNE 


CKDONE 


08F4 

D6 

52 


LDA 

B 

LABEL+3 


08F6 

El 

03 


CMP 

B 

3fX 


08F8 

26 

OA 


BNE 


CKDONE 


08FA 

P6 

53 


LDA 

B 

LABEL+4 


08FC 

El 

04 


CMP 

B 

4r X 


08FE 

26 

04 


BNE 


CKDONE 


0900 

D6 

54 


LDA 

B 

LABEL+5 


0902 

El 

05 


CMP 

B 

5 f X 


0904 

39 


CKDONE 

RTS 



DONE 


* 

** FNDLBL 






* FIND 

A LABEL 

IN SYMBOL 

TABLE 

0905 

BD 

08 

67 

FNDLBL 

JSR 


HASH 

GO HASH IT UP 

0908 

A6 

00 


FND10 

LDA 

A 

OfX 

GET ENTRY 

090A 

27 

OE 



BEG 


FERROR 

IF EMPTYf NO FIND 

090C 

BD 

08 

DE 


JSR 


CHKLBL 

GO SEE IF MATCH 

090F 

27 

OC 



BEG 


GOTLBL 

IF SOf WE GOT IT 

0911 

BD 

08 

7F 


JSR 


REHASH 

GO MIX EM UP AGAIN 

0914 

96 

A4 



LDA 

A 

HASHCT 

GET COUNTER 

0916 

81 

28 



CMP 

A 

*40 

IF DO 40 TIMESf NO GOOD 

0918 

26 

EE 



BNE 


FND10 

RECYCLE 

091A 

86 

FF 


FERROR 

LDA 

A 

#$FF 

SET ERROR 

091C 

39 




RTS 



’ ' s ’ * ' 

09 ID 

4F 



GOTLBL 

CLR 

A 

SET FLAG 


091E 

39 




RTS 





* 

** FNDOPT 

* FIND OPERATOR (TYPE) AND EXECUTE 


091F 

4F 


FNDOPT 

CLR 

A 



0920 

97 

5A 


STA 

A 

DATFLG 


0922 

97 

57 


STA 

A 

MATFLG 


0924 

97 

5B 


STA 

A 

FCCFLG 


0926 

97 

5C 


STA 

A 

EJFLG 

CLEAR FLAGS 

0928 

DE 

96 


LDX 


OPNPTR 

GET POINTER 

092A 

DF 

6B 


STX 


XTEMP1 

SET UP 

092C 

DE 

94 


LDX 


OPTPTR 

GET POINTER 

092E 

A6 

02 


LDA 

A 

2f X 

GET CHAR 

0930 

97 

7D 


STA 

A 

TEMP 

SAVE 3RD CHAR 

0932 

E6 

01 


LDA 

B 

1 r X 

GET 2ND CHAR 

0934 

A6 

00 


LDA 

A 

OfX 

GET 1ST CHAR 

0936 

CE 

09 6B 


LDX 


♦OPTABL 

POINT TO TABLE 

0939 

A1 

00 

CHK1 

CMP 

A 

OfX 

CHECK FOR MATCH 

093B 

27 

15 


BEG 


MATCH1 

IF SOf GO SEE NEXT 
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LOCN 

B1 

B2 

B3 


093D 

7D 

00 

57 


0940 

26 

OB 



0942 

08 



NOMATL 

0943 

08 




0944 

08 




0945 

08 




0946 

08 




0947 

08 




0948 

8C 

OB 

75 


094B 

26 

EC 



094D 

86 

03 


OPTERR 

094F 

7E 

07 

D6 


0952 

97 

57 


MATCH1 

0954 

El 

01 



0956 

26 

EA 



0958 

36 




0959 

96 

7D 



095B 

A1 

02 



095D 

27 

03 



095F 

32 




0960 

20 

EO 



0962 

32 



BINGO 

0963 

A6 

03 



0965 

97 

7E 



0967 

EE 

04 



0969 

6E 

00 


* 

* THIS 

* BASE 

096B 

41 



OPTABL 

096C 

42 




096D 

41 




096E 

IB 




096F 

OD 

03 




0971 41 
0972 44 
0973 43 
0974 89 
0975 0D 51 
0977 41 
0978 44 
0979 44 
097A 8B 
097B OD 51 
097D 41 
097E 4E 
097F 44 
0980 84 
0981 OD 51 
0983 41 
0984 53 
0985 4C 
0986 48 
0987 OD 7B 
0989 41 


TST MATFLG 

BNE OPTERR 

INX 

I NX 

INX 

INX 

INX 

INX 

CPX ♦OPTEND+6 

BNE CHK1 

LDA A *3 
JMP OPSERR 

STA A MATFLG 
CMP B 1»X 
BNE NOMATL 

PSH A 

LDA A TEMP 
CMP A 2*X 
BEG BINGO 

PUL A 

BRA NOMATL 

PUL A 

LDA A 3,X 
STA A OPCODE 
LDX 4 r X 

JMP 0,X 


IS THE MNEMONIC 
OPCODE TABLE 
FCC 7 ABA' 


FCB $1B 

FDB TYPE1 

FCC 7 ADC 7 


FCB $89 

FDB TYPE5 

FCC 'ADD 7 


FCB $SB 

FDB TYPE5 

FCC 'AND 7 


FCB $84 
FDB TYPES 

FCC 7 ASL 7 


FCB $48 

FDB TYPE6 

FCC 7 ASR 7 


CHECK FLAG 
IF SET f NO FIND 


CHECK END TABLE 
IF NOT t CHECK NEXT 
SET ERROR NO. 

GO REPORT 
SET FLAG 
CHECK 2ND MATCH 
IF NOT f RESTART 
SAVE CHAR 
GET 3RD 
CHECK MATCH 
IF SO* GOT IT 
GET 1ST AGAIN 

FIX STACK 

GET OPCODE BASE 

SAVE 

GET TYPE ADDRESS 
GO SERVICE TYPE 


RECOGNITION AND 
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LOCN 

B1 

B2 B3 



098A 

53 




098B 

52 




098C 

47 


FCB 

$47 

098D 

OD 

7B 

FDB 

TYPE6 

098F 

42 


FCC 

7 BCC 7 

0990 

43 




0991 

43 




0992 

24 


FCB 

$24 

0993 

OD 

06 

FDB 

TYPE2 

0995 

42 


FCC 

7 DCS 7 

0996 

43 




0997 

53 




0998 

25 


FCB 

$25 

0999 

OD 

06 

FDB 

TYPE2 

099B 

42 


FCC 

'BEG 7 

099C 

45 




099D 

51 




099E 

27 


FCB 

$27 

099F 

OD 

06 

FDB 

TYPE2 

09A1 

42 


FCC 

7 BGE 7 

09A2 

47 




09A3 

45 




09A4 

2C 


FCB 

$2C 

09A5 

OD 

06 

FDB 

TYPE2 

09A7 

42 


FCC 

7 BGT 7 

09A8 

47 




09A9 

54 




09AA 

2E 


FCB 

$2E 

09AB 

OD 

06 

FDB 

TYPE2 

09AD 

42 


FCC 

7 E<HI 7 

09AE 

48 




09AF 

49 




09B0 



FCB 

$22 

09B1 

OD 

06 

FDB 

TYPE2 

09B3 

42 


FCC 

7 BHS 7 

09B4 

48 




09B5 

53 




09B6 

24 


FCB 

$24 

09B7 

OD 

06 

FDB 

TYPE2 

09B9 

42 


FCC 

7 Bit 7 

09BA 

49 




09BB 

54 




09BC 

85 


FCB 

$85 

09BD 

OD 

51 

FDB 

TYPES 

09BF 

42 


FCC 

7 BLE 7 

09C0 

4C 




09C1 

45 




09C2 

2F 


FCB 

$2F 

09C3 

OD 

06 

FDB 

TYPE2 

09C5 

42 


FCC 

7 BL0 7 

09C6 

4C 




09C7 

4F 




09C8 

25 


FCB 

$25 

09C9 

OD 

06 

FDB 

TYPE2 

09CB 

42 


FCC 

7 BLS 7 
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LOCN 

B1 B2 B3 



09CC 

4C 



09CD 

53 



09CE 

23 

FCB 

*23 

09CF 

OD 06 

FDB 

TYPE2 

09D1 

42 

FCC 

7 BLT 7 

09D2 

4C 



09D3 

54 



09D4 

2D 

FCB 

*2D 

09D5 

OD 06 

FDB 

TYPE2 

09D7 

42 

FCC 

'BMI' 

09D8 

4D 



09D9 

49 



09DA 

2B 

FCB 

*2B 

09DB 

OD 06 

FDB 

TYPE2 

09DD 

42 

FCC 

7 BNE 7 

09DE 

4E 



09DF 

45 



09E0 

26 

FCB 

*26 

09E1 

OD 06 

FDB 

TYPE2 

09E3 

42 

FCC 

7 BPL 7 

09E4 

50 



09E5 

4C 



09E6 

2A 

FCB 

*2A 

09E7 

OD 06 

FDB 

TYPE2 

09E9 

42 

FCC 

'BRA 7 

09EA 

52 



09EB 

41 



09EC 

20 

FCB 

*20 

09ED 

OD 06 

FDB 

TYPE2 

09EF 

42 

FCC 

7 BSR 7 

09F0 

53 



09F1 

52 



09F2 

8D 

FCB 

*8D 

09F3 

OD 06 

FDB 

TYPE2 

09F5 

42 

FCC 

7 BVC 7 

09F6 

56 



09F7 

43 



09F8 

28 

FCB 

*28 

09F9 

OD 06 

FDB 

TYPE2 

09FB 

42 

FCC 

7 BVS 7 

09FC 

56 



09FD 

53 



09FE 

29 

FCB 

*29 

09FF 

OD 06 

FDB 

TYPE2 

0A01 

43 

FCC 

'CBA 7 

0A02 

42 



0A03 

41 



0A04 

11 

FCB 

*11 

0A05 

OD 03 

FDB 

TYPE1 

0A07 

43 

FCC 

7 CLC 7 

0A08 

4C 



0A09 

43 



OAOA 

OC 

FCB 

*0C 

OAOB 

OD 03 

FDB 

TYPE1 

OAOD 

43 

FCC 

7 CL 1 7 




TSC 6800 
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SYSTEM 01.4 


LOCN 

B1 

B2 B3 



OAOE 

4C 




OAOF 

49 




0A10 

OE 


FCB 

$0E 

0A11 

on 

03 

FDB 

TYPE1 

0A13 

43 


FCC 

'CLR' 

0A14 

4C 




0A15 

52 




0A16 

4F 


FCB 

$4F 

0A1 7 

OD 

7B 

FDB 

TYPE6 

0A19 

43 


FCC 

' CLV' 

0A1A 

4C 




0A1B 

56 




0A1C 

OA 


FCB 

$0A 

0A1D 

OD 

03 

FDB 

TYPE1 

0A1F 

43 


FCC 

'CMP' 

0A20 

4D 




0A21 

50 




0A22 

81 


FCB 

$81 

0A23 

OD 

51 

FDB 

TYPE5 

0A25 

43 


FCC 

'COM' 

0A26 

4F 




0A27 

4D 




0A28 

43 


FCB 

$43 

0A29 

OD 

7B 

FDB 

TYPE6 

0A2B 

43 


FCC 

'CPX' 

0A2C 

50 




0A2D 

58 




0A2E 

8C 


FCB 

$8C 

0A2F 

OD 

51 

FDB 

TYPE5 

0A31 

44 


FCC 

'DAA' 

0A32 

41 




0A33 

41 




0A34 

19 


FCB 

$19 

0A35 

OD 

03 

FDB 

TYPE1 

0A37 

44 


FCC 

'DEC' 

0A38 

45 




0A39 

43 




0A3A 

4A 


FCB 

$4A 

0A3B 

OD 

7B 

FDB 

TYPE6 

0A3D 

44 


FCC 

'DES' 

0A3E 

45 




0A3F 

53 




0A40 

34 


FCB 

$34 

0A41 

OD 

03 

FDB 

TYPE1 

0A43 

44 


FCC 

'DEX' 

0A44 

45 




0A45 

58 




0A46 

09 


FCB 

$09 

0A47 

OD 

03 

FDB 

TYPE1 

0A49 

45 


FCC 

'END' 

0A4A 

4E 




0A4B 

44 




0A4C 

00 


FCB 

00 

0A4D 

10 

DD 

FDB 

TYPE16 

0A4F 

45 


FCC 

'EOR' 
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LOCN 

B1 

B2 B3 



0A50 

4F 




0A51 

52 




0A52 

88 


FCB 

$88 

0A53 

OD 

51 

FDB 

TYPES 

0A55 

45 


FCC 

/ EGU / 

0A56 

51 




0A57 

55 




0A58 

00 


FCB 

0 

0A59 

10 

BO 

FDB 

TYPE15 

0A5B 

46 


FCC 

'FCB' 

0A5C 

43 




0A5D 

42 




0A5E 

00 


FCB 

0 

0A5F 

OF 

42 

FDB 

TYPE9 

0A61 

46 


FCC 

'FCC' 

0A62 

43 




0A63 

43 




0A64 

00 


FCB 

0 

0A65 

OE 

87 

FDB 

TYPES 

0A67 

46 


FCC 

'FDB' 

0A68 

44 




0A69 

42 




0A6A 

00 


FCB 

0 

0A6B 

OF 

7E 

FDB 

TYPE10 

0A6D 

49 


FCC 

'INC' 

0A6E 

4E 




0A6F 

43 




0A70 

4C 


FCB 

$4C 

0A71 

OD 

7B 

FDB 

TYPES 

0A73 

49 


FCC 

'INS' 

0A74 

4E 




0A75 

53 




0A76 

31 


FCB 

$31 

0A77 

OD 

03 

FDB 

TYPE1 

0A79 

49 


FCC 

' INX' 

0A7A 

4E 




0A7B 

58 




0A7C 

08 


FCB 

$08 

0A7D 

OD 

03 

FDB 

TYPE1 

0A7F 

4A 


FCC 

' JMP' 

0A80 

4D 




0A81 

50 




0A82 

6E 


FCB 

$6E 

0A83 

OD 

35 

FDB 

TYPE3 

0A85 

4A 


FCC 

' JSR' 

0A86 

53 




0A87 

52 




0A88 

AD 


FCB 

$AD 

0A89 

OD 

35 

FDB 

TYPE3 

0A8B 

4C 


FCC 

'LDA' 

0A8C 

44 




0A8D 

41 




0A8E 

86 


FCB 

$86 

0A8F 

OD 

51 

FDB 

TYPE5 

0A91 

4C 


FCC 

'LDS' 
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LOCN 

B1 

B2 B3 



0A92 

44 




0A93 

53 




0A94 

8E 


FCB 

$8E 

0A95 

OD 

51 

FDB 

TYPES 

0A97 

4C 


FCC 

'LDX' 

0A98 

44 

• 



0A99 

58 




0A9A 

CE 


FCB 

$CE 

0A9B 

OD 

51 

FDB 

TYPE5 

0A9D 

4C 


FCC 

'LSR' 

0A9E 

53 




0A9F 

52 




OAAO 

44 


FCB 

$44 

0AA1 

OD 

7B 

FDB 

TYPE6 

0AA3 

4D 


FCC 

'MON' 

0AA4 

4F 




0AA5 

4E 




0AA6 

00 


FCB 

0 

0AA7 

10 

DD 

FDB 

TYPE16 

0AA9 

4E 


FCC 

'NAM' 

OAAA 

41 




OAAB 

4D 




OAAC 

00 


FCB 

0 

OAAD 

10 

E9 

FDB 

TYPE17 

OAAF 

4E 


FCC 

'NEG' 

OABO 

45 




0AB1 

47 




0AB2 

40 


FCB 

$40 

0AB3 

OD 

7B 

FDB 

TYPE6 

0AB5 

4E 


FCC 

'NOP' 

0AB6 

4F 




0AB7 

50 




0AB8 

01 


FCB 

01 

0AB9 

OD 

03 

FDB 

TYPE1 

OABB 

4F 


FCC 

'OPT' 

OABC 

50 




OABD 

54 




OABE 

00 


FCB 

0 

OABF 

OF 

ED 

FDB 

TYPE12 

0AC1 

4F 


FCC 

'ORA' 

0AC2 

52 




0AC3 

41 




0AC4 

8A 


FCB 

$8A 

0AC5 

OD 

51 

FDB 

TYPES 

0AC7 

4F 


FCC 

'ORG' 

0AC8 

52 




0AC9 

47 




OACA 

00 


FCB 

0 

OACB 

10 

A2 

FDB 

TYPE14 

OACD 

50 


FCC 

'PAG' 

OACE 

41 




OACF 

47 




OADO 

00 


FCB 

0 

0AD1 

10 

89 

FDB 

TYPE13 

0AD3 

50 


FCC 

'PSH' 
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0 


c 


c 


LOCN B1 B2 B3 


0AD4 53 


0AD5 48 


0AD6 36 

FCB 

0AB7 OD 88 

FDB 

0AD9 50 

FCC 

OADA 55 


OADB 4C 


OADC 32 

FCB 

OADD OD 88 

FDB 

OADF 52 

FCC 

OAEO 4D 


0AE1 42 


0AE2 00 

FCB 

0AE3 11 IF 

FDB 

0AE5 52 

FCC 

OAE6 4F 


0AE7 4C 


0AE8 49 

FCB 

0AE9 OD 7B 

FDB 

OAEB 52 

FCC 

OAEC 4F 


OAED 52 


OAEE 46 

FCB 

OAEF OD 7B 

FDB 

0AF1 52 

FCC 

0AF2 54 


0AF3 49 


0AF4 3B 

FCB 

OAFS OD 03 

FDB 

0AF7 52 

FCC 

0AF8 54 


0AF9 53 


OAFA 39 

FCB 

OAFB OD 03 

FDB 

OAFD 53 

FCC 

OAFE 42 


OAFF 41 


OBOO 10 

FCB 

0B01 OD 03 

FDB 

0B03 53 

FCC 

0B04 42 


0B05 43 


0B06 82 

FCB 

0B07 OD 51 

FDB 

0B09 53 

FCC 

OBOA 45 


OBOB 43 


OBOC OD 

FCB 

OBOD OD 03 

FDB 

OBOF 53 

FCC 

0B10 45 


OBI1 49 


OB12 OF 

FCB 

OBI3 OD 03 

FDB 

0B15 53 

FCC 


$36 

TYPE7 

'PUL' 


$32 

TYPE7 

'RMB' 


0 

TYPE18 
'ROL' 


$49 

TYPE6 

'ROR' 


$46 
TYPE6 
'RTI' 


$3B 

TYPE! 

'RTS' 


$39 

TYPE1 

'SBA' 

** f 


$10 

TYPE1 

'SBC' 


$82 

TYPE5 

'SEC' 


$0D 
TYPE1 
'SEI' 


$0F 

TYPE1 

'SEV' 
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LOCN 

B1 

B2 B3 



0B16 

45 




0B17 

56 




0B18 

OB 


FCB 

$0B 

0B19 

OB 

03 

FDB 

TYPE1 

0B1B 

53 


FCC 

' SPC' 

0B1C 

50 




OB ID 

43 




OB IE 

00 


FCB 

0 

0B1F 

OF 

BD 

FDB 

TYPE11 

0B21 

53 


FCC 

'STA' 

0B22 

54 




0B23 

41 




0B24 

97 


FCB 

$97 

0B25 

OD 

54 

FDB 

TYPE4 

0B27 

53 


FCC 

'STS' 

0B28 

54 




0B29 

53 




0B2A 

9F 


FCB 

$9F 

0B2B 

OD 

54 

FDB 

TYPE4 

0B2D 

53 


FCC 

' STX' 

0B2E 

54 




0B2F 

58 




0B30 

DF 


FCB 

$DF 

0B31 

OD 

54 

FDB 

TYPE4 

0B33 

53 


FCC 

'SUB' 

0B34 

55 




0B35 

42 




0B36 

80 


FCB 

$80 

0B37 

OD 

51 

FDB 

TYPE5 

0B39 

53 


FCC 

'SWI' 

0B3A 

57 




0B3B 

49 




0B3C 

3F 


FCB 

$3F 

0B3D 

OD 

03 

FDB 

TYPE1 

0B3F 

54 


FCC 

'TAB' 

0B40 

41 




0B41 

42 




0B42 

16 


FCB 

$16 

0B43 

OD 

03 

FDB 

TYF’El 

0B45 

54 


FCC 

'TAP' 

0B46 

41 




0B47 

50 




0B48 

06 


FCB 

$06 

0B49 

OD 

03 

FDB 

TYPE1 

0B4B 

54 


FCC 

'TBA' 

0B4C 

42 




0B4D 

41 




0B4E 

17 


FCB 

$17 

0B4F 

OD 

03 

FDB 

TYF’El 

0B51 

54 


FCC 

' TPA' 

0B52 

50 




0B53 

41 




0B54 

07 


FCB 

$07 

0B55 

OD 

03 

FDB 

TYPE1 

0B57 

54 


FCC 

'TST' 
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LOCN B1 B2 B3 
0B58 53 
0B59 54 
0B5A 4D 
0B5B OD 7B 
0B5D 54 
0B5E 53 
0B5F 58 
0B60 30 
0B61 OD 03 
0B63 54 
0B64 54 
0B65 4C 
0B66 00 
0B67 10 E9 
0B69 54 
0B6A 58 
0B6B 53 
0B6C 35 
0B6D OD 03 
0B6F 57 
0B70 41 
0B71 49 
0B72 3E 
0B73 OD 03 


FCB 

FDD 

FCC 


FCB 

FDB 

FCC 


FCB 

FDB 

FCC 


FCB 

FDB 

OPTEND FCC 


FCB 

FDB 


♦ 4D 

TYPE6 

'TSX' 


♦ 30 

TYPE1 

'TTL' 


0 

TYPE17 
'TXS' 


♦ 35 
TYPE1 
7 WAI ' 


♦3E 

TYPE1 


## PARSE 

* PARSE A LINE OF SOURCE INTO POINTERS 

* AND CHECK SYNTAX 


0B75 

96 

48 


PARSE 

LDA 

A 

0B77 

08 



PARSOA 

INX 


0B78 

4A 




DEC 

A 

0B79 

2A 

FC 



BPL 


0B7B 

DF 

7B 



STX 


0B7D 

DF 

8D 



STX 


0B7F 

86 

FF 


PARSEO 

LDA 

A 

0B81 

97 

55 



STA 

A 

0B83 

97 

5E 



STA 

A 

0B85 

97 

5F 



STA 

A 

0B87 

BD 

OC 

65 


JSR 


0B8A 

4F 



• [j t.' t ii ij i 

CLR 

A 

0B8B 

97 

90 



STA 

A 

0B8D 

97 

AB 



STA 

A 

0B8F 

97 

7D 



STA 

A 

0B91 

97 

59 



STA 

A 

0B93 

97 

81 



STA 

A 

0B95 

97 

82 



STA 

A 

0B97 

97 

83 



STA 

A 

0B99 

97 

56 



STA 

A 

0B9B 

DF 

94 



STX 


0B9D 

DF 

96 



STX 


0B9F 

DE 

7B 



LDX 


0BA1 

A6 

00 



LDA 

A 

0BA3 

81 

OD 



CMP 

A 

0BA5 

26 

03 



BNE 


0BA7 

7E 

OC 

2D 


JMP 


OBAA 

81 

2A 


CHKCOM 

CMP 

A 


LINBYT 


PARSOA 

QTEMP 

LINPTR SAVE PRINT POSITION 

♦♦FF 

PRFLG * SET PROCESS FLAG 

PRTFLG 

PAGFLG 

CLRLAB GO CLEAR LABEL STORE 

* f "r V S3 / ' 5 •. ' - i x i 

OPCNT SET OP COUNT =0 

MODFY SET FLAG 

TEMP 

PCFLAG 

P2ERR1 

P2ERR2 

P2ERR3 

ERRFLG 

OPTPTR 

OPNPTR 

QTEMP 

0»X GET FIRST CHAR 

♦♦D CHECK FOR EMPTY 

CHKCOM 
PARSE3 

#'* CHECK FOR COMMEMT 
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LOCN 

B1 

B2 

B3 






OBAC 

27 

78 



BE a 


FINDCR 


OBAE 

81 

20 


PARSE1 

CMP 

A 

#' 

CHECK FOR NO LABEL 

OBBO 

27 

22 



BEG 


PARSE2 


0BB2 

97 

59 



STA 

A 

PCFLAG 


0BB4 

81 

41 



CMP 

A 

♦ 7 A 

CHECK FOR LETTER A 

0BB6 

25 

04 



BCS 


LABERR 


0BB8 

81 

5A 



CMP 

A 

*'Z 

CHECK FOR Z 

OBBA 

23 

07 



BLS 


PARS1A 


OBBC 

86 

04 


LABERR 

LDA 

A 

*4 

SET ERROR 

OBBE 

BD 

07 

E5 


JSR 


ASMERR 


0BC1 

20 

OE 



BRA 


PARSIB 

FINISH LINE 

0BC3 

BD 

OC 

8F 

PARS1A 

JSR 


COPLBL 

GO COPY THE LABEL 

0BC6 

4D 




1ST 

A 



0BC7 

26 

08 



BNE 


PARSIB 


0BC9 

Cl 

OD 



CMP 

B 

#$D 

CHECK FOR CR 

OBCB 

27 

60 



BEG 


PARSE3 


OBCD 

Cl 

20 



CMP 

B 



OBCF 

26 

EB 



BNE 


LABERR 


0BD1 

BD 

OC 

50 

PARSIB 

JSR 


FINDS2 

GO FIND A SPACE 

0BD4 

BD 

OC 

5C 

PARSE2 

JSR 


NXTBL2 

GO GET NEXT TOKEN 

0BD7 

27 

54 



BEG 


PARSE3 

IT Zr NO OPERATION 

0BD9 

5F 




CLR 

B 



OBDA 

D7 

55 



STA 

B 

PRFLG 

SET PROCESS FLAG 

OBDC 

86 

FF 



LDA 

A 

#$FF 


OBDE 

97 

59 



STA 

A 

PCFLAG 


OBEO 

DF 

94 



STX 


OPTPTR 

SAVE OPERATION POINTER 

0BE2 

08 




INX 




0BE3 

A6 

00 



LDA 

A 

0»X 


0BE5 

81 

OD 



CMP 

A 

*$D 


0BE7 

27 

16 



BEG 


PARS2F 


0BE9 

08 




INX 




OBEA 

A6 

00 



LDA 

A 

0 »X 


OBEC 

81 

OD 



CMP 

A 

*$D 


OBEE 

27 

OF 



BEQ 


PARS2F 

% 

OBFO 

20 

12 



BRA 


PARS2A 

- 0 H $ <i' ' *. ;• \ V 

0BF2 

96 

8F 


PEVAL 

LDA 

A 

PASS 


0BF4 

4A 




DEC 

A 



0BF5 

97 

56 



STA 

A 

ERRFLG 


0BF7 

BD 

11 

D5 


JSR 


EVAL 

GO EVALUATE 

OBFA 

7F 

00 

56 


CLR 


ERRFLG 


OBFD 

39 




RTS 



RETURN 

OBFE 

02 




NOP 



SPACE 

OBFF 

86 

03 


PARS2F 

LDA 

A 

*$03 


0C01 

20 

48 



BRA 


PARFF2 


0C03 

02 




NOP 



SPACE 

0C04 

8D 

55 


PARS2A 

BSR 


NXTBLK 


0C06 

27 

25 



BEG 


PARSE3 


0C08 

81 

41 



CMP 

A 

#'A 

IS IT AN A? 

OCOA 

27 

05 



BEG 


PARS2D 


OCOC 

81 

42 



CMP 

A 

*' B 

IS IT A B? 

OCOE 

26 

14 



BNE 


PARS2E 


0C10 

5C 



PARS2B 

INC 

B 



0C11 

5C 



PARS2D 

INC 

B 



0C12 

08 




INX 




0C13 

A6 

00 



LDA 

A 

X 

•k 

© 

GET CHAR 
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LOCN 

B1 

B2 

B3 





0C15 

81 

OD 



CMP A 

#$D 


0C17 

27 

20 



BEQ 

PARSE4 


0C19 

81 

20 



CMP A 

#' 

IS IT A SPACE? 

0C1B 

27 

IF 



BEQ 

PARS2H 


0C1D 

09 



PARS2J 

DEX 



0C1E 

20 

04 



BRA 

PARS2E 


0C20 





RMB 

4 


0C24 

DF 

96 


PARS2E 

STX 

OPNPTR 


0C26 

08 



FINDCR 

INX 


BUMP POINTER 

0C27 

A6 

00 



LDA A 

OrX 

GET CHAR 

0C29 

81 

OD 



CMP A 

#$D 

IS IT A CR 

0C2B 

26 

F9 



BNE 

FINDCR 

IF NOT t GET NEXT 

0C2D 

96 

7D 


PARSE3 

LDA A 

TEMP 


0C2F 

27 

07 



BEQ 

PARSES 


0C31 

DF 

7 B 



STX 

QTEMP 


0C33 

BD 

07 

D6 

PARSE7 

JSR 

OPSERR 


0C36 

DE 

7B 


PARSE6 

LDX 

QTEMP 


0C38 

39 



PARSES 

RTS 



0C39 

D7 

AB 


PARSE4 

STA B 

MODFY 


0C3B 

39 




RTS 


DONE 

0C3C 

D7 

AB 


PARS2H 

STA B 

MODFY 

SAUE 

0C3E 

8D 

1C 



BSR 

NXTBL2 

GET NEXT 

0C40 

27 

EB 



BEQ 

PARSE3 


0C42 

20 

EO 



BRA 

PARS2E 


0C44 

DE 

4B 


FND222 

LDX 

PC 

GET PC 

0C46 

DF 

6D 



STX 

XTEMP2 

SAME IT 

0C48 

7E 

09 

IF 


JMP 

FNDOPT 


0C4B 

97 

7D 


PARFF2 

STA A 

TEMP 


0C4D 

20 

D7 



BRA 

FINDCR 

GO LOCATE CR 

0C4F 

08 



FINDSP 

INX 


BUMP POINTER 

0C50 

A6 

00 

• 

FINDS2 

LDA A 

0*X 

GET THE CHAR 

0C52 

81 

OD 



CMP A 

#$D 

CHECK FOR CR 

0C54 

27 

OE 



BEQ 

NXTBL3 


0C56 

81 

20 



CMP A 

#' 

IS IT A SPACE? 

0C58 

26 

F5 



BNE 

FINDSP 

IF NOT * GET NEXT 

0C5A 

39 




RTS 


DONE 

0C5B 

08 



NXTBLK 

INX 


BUMP POINTER 

0C5C 

A6 

00 


NXTBL2 

LDA A 

OrX 

GET CHAR 

0C5E 

81 

20 



CMP A 

#' 

IS IT A SPACE? 

0C60 

27 

F9 



BEQ 

NXTBLK 

IF SOr GET NEXT 

0C62 

81 

OD 



CMP A 

#$D 

IS IT A CR 

0C64 

39 



NXTBL3 

RTS 


DONE 






* 

** CLRLAB 







* CLEAR 

LABEL 

STORAGE 


0C65 

CE 

00 

20 

CLRLAB 

LDX 

#$0020 


0C68 

DF 

4F 



STX 

LABEL 


0C6A 

CE 

20 

20 


LDX 

#$2020 


0C6D 

DF 

51 



STX 

LABEL+2 


0C6F 

DF 

S3 



STX 

LABEL+4 

SET EM 

0C71 

39 




RTS 




* 

* 
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LOCN B1 B2 B3 

* 

** ADDPCN 

* INCREMENT PC N TIMES 

* SET OPERAND (BYTE) COUNT 


0C72 

DE 

4B 


ADDPC3 

LDX 

PC 

GET THE PC 

0C74 

08 




INX 



0C75 

08 




INX 


BUMP TWICE 

0C76 

7C 

00 

90 


INC 

OPCNT 


0C79 

7C 

00 

90 


INC 

OPCNT 

KICK OPERAND COUNT 

0C7C 

20 

OA 



BRA 

ADDPCO 


0C7E 

DE 

4B 


ADDPC2 

LDX 

PC 

GET THE PC 

0C80 

08 




INX 


BUMP IT 

0C81 

7C 

00 

90 


INC 

OPCNT 


0C84 

20 

02 



BRA 

ADDPCO 


0C86 

DE 

4B 


ADDPC1 

LDX 

PC 


0C88 

08 



ADDPCO 

INX 


BUMP IT 

0C89 

DF 

4B 



STX 

PC 

PUT BACK 

0C8B 

7C 

00 

90 


INC 

OPCNT 


0C8E 

39 




RTS 


DONE 


* 

** COPLBL 





' * COPY 

LABEL 

TO LABEL 

STORE 



0C8F 

8D 

IB 

COPLBL 

BSR 


GETCHR 




0C91 

97 

4F 


STA 

A 

LABEL 




0C93 

8D 

17 


BSR 


GETCHR 




0C95 

97 

50 


STA 

A 

LABEL+1 




0C97 

8D 

13 


BSR 


GETCHR 




0C99 

97 

51 


STA 

A 

L.ABEL+2 




0C9B 

8D 

OF 


BSR 


GETCHR 




0C9D 

97 

52 


STA 

A 

LABEL+3 




0C9F 

8D 

OB 


BSR 


GETCHR 




0CA1 

97 

53 


STA 

A 

LABEL+4 




0CA3 

8D 

07 


BSR 


GETCHR 




0CA5 

97 

54 


STA 

A 

LABEL+5 




0CA7 

39 



RTS 



RETURN 


0CA8 

08 


COPDON 

INX 






0CA9 

39 


* 

RTS 






OCAA 



* 

RMB 


n 







* 

** GETCHR 









* GET A 

CHARACTER 




OCAC 

A6 

00 

GETCHR 

LDA 

A 

0>X 




OCAE 

84 

7F 


AND 

A 

**7F 

MASK PARITY 

OCBO 

16 



TAB 






0CB1 

81 

30 


CMP 

A 

*"0 




0CB3 

25 

OC 


BCS 


FIX 

IF 

<0> FIX 

STACK 

0CB5 

81 

39 


CMP 

A 

#'9 




0CB7 

23 

EF 


BLS 


COPDON 

IF 

A 

ii 

<1 

O 


0CB9 

81 

41 


CMP 

A 

#'A 




OCBB 

25 

04 


BCS 


FIX 

IF 

<A f FIX 

STACK 

OCBD 

81 

5A 


CMP 

A 

*'Z 




OCBF 

23 

E7 


BLS 


COPDON 

IF 

o 

». 

N 

ii 

V 


0CC1 

31 


FIX 

INS 
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LOCN 

B1 B2 B3 



0CC2 

31 

INS 

FIX STACK 

0CC3 

4F 

CLR A 

SET A 

0CC4 

39 

RTS 

DONE 


* 

** 0UT3S 





* PRINT 

3 SPACES 


0CC5 

8D 

02 

0UT3S 

BSR 

OUTSZ 


0CC7 

8D 

00 

0UT2S 

BSR 

OUTSZ 


0CC9 

7E 

03 IE 

OUTSZ 

JMP 

OUTS 

PRINT A SPACE 


* 

** OUTHXS 


OCCC 

8D 

02 

* PRINT 
OUTHXS 

2 HEX 
BSR 

DIGITS AND 
OUTHEX 

A SPACE 

GO PRINT DIGITS 

OCCE 

20 

F9 


BRA 

OUTSZ 



* 

** OUTHEX 





* PRINT 

A AS 2 

HEX DIGITS 

OCDO 

36 


OUTHEX 

F’SH 

A 


SAVE 

0CD1 

8D 

08 


BSR 


HEXL 

GO CONVERT 

0CD3 

8D 

03 


BSR 


PRTIT 

GO PRINT IT 

0CD5 

32 



PUL 

A 



0CD6 

8D 

07 


BSR 


HEXR 

GO CONVERT 

0CD8 

7E 

03 20 

PRTIT 

JMP 


OUTCH 

GO PRINT 

OCDB 

44 


* 

HEXL 

LSR 

A 



OCDC 

44 



LSR 

A 



OCDD 

44 



LSR 

A 



OCDE 

44 


* 

LSR 

A 



OCDF 

84 

OF 

HEXR 

AND 

A 

t*F 

MASK DOWN 

0CE1 

8B 

90 


ADD 

A 

**90 


0CE3 

19 



DAA 




0CE4 

89 

40 


ADC 

A 

**40 


0CE6 

19 



DAA 




0CE7 

39 



RTS 



TRICK CONVERT 


* 

** SUB16 





* 

16 BIT SUBTRACT 


0CE8 

97 

7D 

SUB16 STA 

A 

TEMP 

SAVE 

OCEA 

A6 

01 


LDA 

A 

lfX 


OCEC 

10 



SBA 




OCED 

A7 

01 


STA 

A 

ltX 


OCEF 

A6 

00 


LDA 

A 

OtX 


0CF1 

92 

7D 


SBC 

A 

TEMP 


0CF3 

A7 

00 


STA 

A 

OtX 


0CF5 

49 



ROL 

A 



0CF6 

88 

01 


EOR 

A 

*1 


0CF8 

46 



ROR 

A 


SET ARITH CARRY 

0CF9 

39 


* 

RTS 







** 

ADD16 







* 

16 BIT ADD 



OCFA 

EB 

01 

ADD16 ADD 

B 

1 r X 

ADD ON 

OCFC 

A9 

00 


ADC 

A 

OtX 

ADD WITH CARRY (MS) 

OCFE 

A7 

00 


STA 

A 

OtX 

SAVE 
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LOCN B1 B2 B3 
ODOO E7 01 
0D02 39 


0D03 7E OC 86 


STA B IfX SAVE LS 

RTS 

* 

** TYPE1 

* HANDLES TYPE1 INSTRUCTIONS 

TYPE1 JMP ADDPC1 GO FIX PC 

* 

TYPE2 

* HANDLES TYPE2 INSTRUCTIONS 


0D06 

96 

AB 


TYPE2 

LDA 

A 

MODFY 

CHECK MODIFY FLAG 

0D08 

26 

42 



BNE 


TYP3R 


ODOA 

BD 

OC 

7E 


JSR 


ADDPC2 


ODOD 

96 

8F 



LDA 

A 

PASS 

CHECK PASS COUNT 

ODOF 

27 

23 



BEG 


TYPE2D 

IF PASS If SKIP 

0D11 

BD 

11 

D5 


JSR 


EVAL 

GO EVALUATE OPERAND 

on 14 

26 

16 



BNE 


TYPE2B 

IF EVAL ERROR f UNDEFINED 

0D16 

96 

4B 



LDA 

A 

PC 


0D18 

D6 

4C 



LDA 

B 

PC+1 

REFERENCE ADDRESS 

0D1A 

CE 

00 

7B 


LDX 


♦GTEMP 

POINT 

OD ID 

BD 

OC 

E8 


JSR 


SUB16 

GO SUBTRACT 

on 20 

4F 




CLR 

A 



0D21 

D6 

7C 



LDA 

B 

GTEMP+1 

GET LS RESULT 

0D23 

D7 

7F 



STA 

B 

0P1 

SAVE BRANCH AMOUNT 

0D25 

2A 

01 



BPL 


TYPE2A 

IF POSf SKIP 

0D27 

43 




COM 

A 


COMPLEMENT A 

0D28 

91 

7B 


TYPE2A 

CMP 

A 

GTEMP 

CHECK SIGN EXTENSION 

0D2A 

27 

08 



BEG 


TYPE2D 

IF EGUALf OK 

0D2C 

7F 

00 

7F 

TYPE2B 

CLR 


0P1 

SET BRANCH = 0 

0D2F 

86 

06 



LDA 

A 

♦6 


0D31 

7 E 

07 

E5 


JMP 


ASMERR 

GO REPORT ERROR 

0D34 

39 



TYPE2D 

RTS 



DONE 


* 

** TYPE3 

* HANDLES TYPE3 INST. 


0D35 

96 

AB 

TYPE3 

LDA A 

MODFY 

0D37 

26 

13 


BNE 

TYP3R 

0D39 

BD 

OD A3 

TYPE3A 

JSR 

INDEX 


GET MODIFIER 
IF SET f ERROR 
GO CHECK INDEXED 


** EXTEND 

* CHECKS FOR EXTENDED ADDRESSING 


(DEFAULT) 


0D3C 

96 

8F 


EXTEND 

LDA 

A 

PASS 

0D3E 

27 

09 



BEG 


EXTEN1 

0D40 

BD 

11 

D5 


JSR 


EVAL 

0D43 

DE 

7B 


EXTENO 

LDX 


GTEMP 

0D45 

DF 

7F 



STX 


0P1 

0D47 

8D 

13 



BSR 


FIXMOD 

0D49 

7E 

OC 

72 

EXTEN1 

JMP 


ADDPC3 

0D4C 

86 

03 


TYP3R 

LDA 

A 

*3 

0D4E 

7E 

07 

D6 


JMP 


OFSERR 


0D51 BD OE 3F 


* 

** TYPE5 

* HANDLE TYPE5 
TYPES JSR 

* 

** TYPE4 


INST. 

IMMED 


CHECK PASS=1 
GO EVALUATE OPERAND 
GET RESULT 
SET BYTES 2f3 

KICK PC AGAIN 


CHECK IMMEDIATE 
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ASSEMBLER SYSTEM 01*4 


LOCN B1 B2 B3 

* HANDLE TYPE4 INST. 

0D54 BD OE 04 TYPE4 JSR DIRECT GO CHECK DIRECT 

0D57 20 EO BRA TYPE3A DEFAULT EXTEND 

* 

** FIXMOD 
* SET UP MODIFIER 


0D59 

8D 

01 

TFIXMD 

BSR 


0D5B 

39 



RTS 


0D5C 

D6 

7E 

FIXMOD 

LDA 

B 

0D5E 

Cl 

80 


CMP 

B 

0D60 

24 

05 


BCC 


0D62 

96 

AB 

F1XM4 

LDA 

A 

0D64 

26 

36 


BNE 


OD 66 

39 



RTS 


0D67 

C4 

OF 

FIXM3 

AND 

B 

0D69 

Cl 

OB 


CMP 

B 

0D6B 

O'? 

A- A_ 

F5 


BHI 


0D6D 

96 

AB 

FIXM5 

LDA 

A 

0D6F 

27 

2B 


BEQ 


0D71 

4A 



DEC 

A 

0D72 

40 



NEC 

A 

0D73 

84 

40 


AND 

A 

0D75 

9B 

7E 


ADD 

A 

0D77 

97 

7E 


STA 

A 

0D79 

4F 



CLR 

A 

0D7A 

39 



RTS 



* 

** TYPE6 
* HANDLE TYPE6 


0D7B 

96 

AB 

TYPE6 

LDA 

A 

0D7D 

4A 



DEC 

A 

0D7E 

2A 

OD 


BPL 


0D80 

D6 

7E 


LDA 

B 

0D82 

CB 

20 


ADD 

B 

0D84 

D7 

7E 


STA 

B 

0D86 

20 

B1 


BRA 



* 

** TYPE7 
* HANDLE TYPE7 


0D88 

96 

AB 


TYPE7 

LDA 

A 

0D8A 

4A 




DEC 

A 

0D8B 

2B 

BF 

f 


BMI 


0D8D 

D6 

7E 


TYPE7A 

LDA 

B 

0D8F 

Cl 

3F 



CMP 

B 

0D91 

23 

03 



BLS 


0D93 

40 




NEG 

A 

0D94 

84 

10 



AND 

A 

0D96 

IB 



TYPE7D 

ABA 


0D97 

97 

7E 



STA 

A 

0D99 

7E 

OC 

86 


JMP 


0D9C 

31 



TYPE7C 

INS 


0D9D 

31 




INS 


0D9E 

86 

03 



LDA 

A 

ODAO 

7E 

07 

D6 


JMP 



* 


FIXMOD 


OPCODE 

*$80 

FIXM3 

MODFY 

TYPE7C 

CHECK NO MODIFIER 

CHECK ILLEGAL 

#$F 

*$B 

FIXM4 

MODFY 

TYPE7C 

CHECK NO MODIFIER 

GET MODIFIER 

#$40 

OPCODE 

OPCODE 

FIX UP OPCODE 


RESET ERROR 


INST. 

MODFY 

GET MODIFIER 

TYPE7A 

CHECK INHERENT <A* 

OPCODE 

GET OPCODE 

#$20 

ADD ON 

OPCODE 

PUT BACK 

TYPE3A 

GO DO TYPE3 

INSTRUCTIONS 

MODFY 

GET MODIFIER 

TYP3R 

OPCODE 

GET CODE 

#$3F 

TYPE7D 

CHECK PUSH OR PULL 

*$10 

MASK DOWN 

MODIFY 

OPCODE 

SAVE 

ADDPC1 

KICK PC 

*3 

OPSERR 
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LOCN B1 B2 B3 

** INDEX 

* CHECK FOR INDEX ADDRESSING 

* RETURN IF NOT 


0DA3 

DE 

6B 


INDEX 

L.DX 


XTEMP1 

GET OPERAND PTR 

0DA5 

7F 

00 

7F 


CL.R 


0P1 


0DA8 

A6 

00 



LDA 

A 

OrX 

FIRST CHAR 

ODAA 

81 

58 



CMP 

A 

*'X 

IS IT AN X? 

ODAC 

26 

OC 



BNE 


INDEX1 

IF NOT r CHECK NEXT 

ODAE 

A6 

01 



LDA 

A 

lr X 


ODBO 

81 

20 



CMP 

A 



0DB2 

27 

JU. 



BEG 


INDEX3 


ODD 4 

81 

OD 



CMP 

A 

**D 


0DB6 

26 

02 



BNE 


INDEX1 


0DB8 

20 

1C 



BRA 


INDEX3 


ODBA 

A6 

00 


INDEX1 

LDA 

A 

0 rX 

GEi CHAR 

ODBC 

81 

2C 



CMP 

A 

*' r 

CHECK FOR COMMA 

ODBE 

27 

20 



BEG 


INDEX4 


ODCO 

81 

20 



CMP 

A 

*' 

CHECK FOR SPACE 

0DC2 

27 

2F 


• 

BEG 


INDEXO 

IF SOr EXTENDED 

0DC4 

81 

OD 



CMP 

A 

**D 


0DC6 

27 

2B 



BEG 


INDEXO 


0DC8 

08 




INX 




0DC9 

20 

EF 



BRA 


INDEX1 


ODCB 

96 

8F 


INDEX2 

LDA 

A 

PASS 


ODCD 

27 

07 



BEG 


INDEX3 

CHECK PASS COUNT 

ODCF 

BD 

11 

D5 


JSR 


EVAL 

GO EVALUATE 

ODD 2 

96 

7C 



LDA 

A 

GTEMP+1 


0DD4 

97 

7F 



STA 

A 

0P1 

SET OFFSET 

0DD6 

BD 

OD 

59 

INDEX3 

JSR 


TFIXMD 


0DD9 

26 

26 



BNE 


FIXXX2 


ODDB 

31 




INS 




ODDC 

31 




INS 



FIX STAC 

ODDD 

7E 

OC 

7E 


JMP 


ADDPC2 


ODEO 

A6 

01 


INDEX4 

LDA 

A 

1 r X 

GET NEXT CHAR 

0DE2 

81 

58 



CMP 

A 

*'X 

IS IT X 

0DE4 

26 

14 



BNE 


INDEX5 

IF NOTr EXTENDED 

0DE6 

08 




INX 




0DE7 

A6 

01 


INDEOO 

LDA 

A , 

lrX 

GET FOLLOWING 

0DE9 

81 

20 



CMP 

A 

*' 

MUST BE SPACE 

ODEB 

27 

DE 



BEG 


INDEX2 

IF SOr INDEXED 

ODED 

81 

OD 



CMP 

A 

**D 


ODEF 

27 

DA 



BEG 


INDEX2 


0DF1 

20 

07 



BRA 


INDEX5 


0DF3 

D6 

7E 


INDEXO 

LDA 

B 

OPCODE 


0DF5 

CB 

10 



ADD 

B 

#*10 


0DF7 

D7 

7E 



STA 

B 

OPCODE 


0DF9 

39 



INDEX9 

RTS 




ODFA 

86 

08 


INDEX5 

LDA 

A 

*8 


ODFC 

31 




INS 




ODFD 

31 




INS 




ODFE 

7E 

07 

D6 


JMP 


OPSERR 

GO REPORT ERROR 

0E01 

31 



FIXXX2 

INS 




0E02 

31 




INS 



FIX STACK 

0E03 

39 




RTS 



DONE 


* 




■•Is*- 
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LOCN 

B1 

B2 

B3 










** DIRECT 








* CHECK- 

FOR 

DIRECT ADDRESSING 

0E04 

DE 

6 B 


DIRECT 

LDX 


XTEMP1 


0E06 

86 

FF 



LDA 

A 

*$FF 


0E08 

97 

56 



STA 

A 

ERRFLG 

DISABLE ERRORS 

OEOA 

97 

60 



STA 

A 

LBLMSK 

SET MASK 

OEOC 

BF 

73 



STX 


XTEMP5 

SAVE POINTER 

OEOE 

BD 

11 

D5 


JSR 


EVAL 

GO CALCULATE 

0E11 

7F 

00 

56 


CLR 


ERRFLG 

ENABLE ERRORS 

0E14 

C6 

7F 



LDA 

B 

#$7F 


0E16 

D7 

60 



STA 

B 

LBLMSK 

RESET MASK- 

0E18 

DE 

6 B 



LDX 


XTEMP1 

GET END PTR 

0E1A 

E6 

00 



LDA 

B 

0,X 

GET TERMINATOR 

0E1C 

Cl 

2C 



CMP 

B 

#', 

CHECK INDEXED 

0E1E 

36 




PSH 

A 



0E1F 

07 




TPA 




0E20 

DE 

73 



LDX 


XTEMP5 


0E22 

DF 

6 B 



STX 


XTEMP1 


0E24 

33 




PUL 

B 



0E25 

06 




TAP 



RESET CCR 

0E26 

27 

10 



BEG 


NDIR 


0E28 

5D 




TST 

B 



0E29 

26 

OD 



BNE 


NDIR 

IF NO FIND ALL 

0E2B 

D6 

7B 



LDA 

B 

GTEMP 

GET MS BYTE 

0E2D 

26 

09 



BNE 


NDIR 


0E2F 

BD 

OD 

59 


JSR 


TFIXMD 


0E32 

26 

50 



BNE 


FIXXX 


0E34 

96 

7C 



LDA 

A 

QTEMP+1 


0E36 

20 

2F 



BRA 


IMMED2 


0E38 

D6 

7E 


NDl'R 

LDA 

B 

OPCODE 


0E3A 

CB 

10 



ADD 

B 

#$10 


0E3C 

D7 

7E 



STA 

B 

OPCODE 


0E3E 

39 




RTS 



PASS ON 


** IMMED 
* CHECK FOR 


0E3F 

DE 

6 B 


IMMED 

LDX 


XTEMPl 

0E41 

A6 

00 



LDA 

A 

0,X 

0E43 

81 

23 



CMP 

A 

#'# 

0E45 

27 

07 



BEG 


IMMED1 

0E47 

D6 

7E 


IMMEDO 

LDA 

B 

OPCODE 

0E49 

CB 

10 



ADD 

B 

*$10 

0E4B 

D7 

7E 



STA 

B 

OPCODE 

0E4D 

39 




RTS 



0E4E 

08 



IMMED1 

INX 



0E4F 

DF 

6 B 



STX 


XTEMPl 

0E51 

D6 

7E 



LDA 

B 

OPCODE 

0E53 

C4 

OF 



AND 

B 

#$F 

0E55 

Cl 

OB 



CMP 

B 

#$B 

0E57 

22 

15 



BHI 


IMMED3 

0E59 

BD 

OD 

59 


JSR 


TFIXMD 

0E5C 

26 

26 



BNE 


FIXXX 

0E5E 

96 

8 F 



LDA 

A 

PASS 

0E60 

27 

07 



BEG 


IMMED4 

0E62 

BD 

11 

D5 


JSR 


EVAL 


IMMEDIATE ADDRESSING 

GET OPERAND PTR 

CHECK FOR * 

IF SO, IMMEDIATE 


MOVE PAST * 


IF PASS1, SKIP 
GO EVALUATE OPERAND 
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LOCN 

B1 

B2 

B3 







0E65 

96 

7C 



LDA 

A 

QTEMP+1 

GET 

LS RESULT 

0E67 

97 

7F 


IMMED2 

STA 

A 

0P1 

SET 

BYTE 2 

0E69 

BB 

OC 

7E 

IMMED4 

JSR 


ADDPC2 



0E6C 

20 

16 



BRA 


FIXXX 



0E6E 

96 

AB 


IMMED3 

LDA 

A 

MODFY 



0E70 

4A 




DEC 

A 




0E71 

2B 

03 



BMI 


IMMED5 



0E73 

7E 

OD 

9C 

IMMED6 

JMP 


TYPE7C 



0E76 

BD 

OC 

72 

IMMED5 

JSR 


ADDPC3 



0E79 

96 

8F 



LDA 

A 

PASS 



0E7B 

27 

07 



BEQ 


FIXXX 

CHECK PASS COUNT 

0E7D 

BD 

11 

D5 


JSR 


EVAL 

GO 1 

EVALUATE 

0E80 

DE 

7B 



LDX 


QTEMP 

GET 

ARG 

0E82 

DF 

7F 



STX 


0P1 

SET 

OPERANDS 

0E84 

31 



FIXXX 

INS 





0E85 

31 




INS 





0E86 

39 




RTS 






* 

** TYPES 


0E87 

86 

FF 


* 

TYPES 

LDA 

A 

#$FF 

• 

0E89 

97 

56 



STA 

A 

ERRFLG 

SUPPRESS ERROR REPORT 

0E8B 

DE 

96 



LDX 


OPNPTR 


0E8D 

DF 

73 



STX 


XTEMP5 

SAVE START 

0E8F 

BD 

11 

D5 


JSR 


EVAL 

GO EVALUATE EXPR 

0E92 

CE 

02 

00 


LDX 


♦BYTSTK 


0E95 

DF 

87 



STX 


BYTPTR 

SET UP POINTER 

0E97 

96 

7C 



LDA 

A 

QTEMP+1 

GET RESULT 

0E99 

27 

56 



BEQ 


TYPE8F 

IF ZEROr DELIM TYPE 

0E9B 

DE 

6B 



LDX 


XTEMP1 


0E9D 

A6 

00 



LDA 

A 

OrX 


0E9F 

81 

2C 



CMP 

A 

#' r 


0EA1 

26 

4E 



BNE 


TYPE8F 

IF NOT COMMAr DELIM TYPE 

0EA3 

08 




I NX 



MOVE PAST r 

0EA4 

96 

7C 



LDA 

A 

QTEMP+1 

GET DATA 

0EA6 

E6 

00 



LDA 

B 

OrX 

GET NEXT CHAR 

0EA8 

08 




INX 




0EA.9 

Cl 

OD 


• 

CMP 

B 

*$D 

CHECK FOR CR 

OEAB 

26 

04 



BNE 


TYPE8A 


OEAD 

97 

5B 



STA 

A 

FCCFLG 


OEAF 

C6 

20 



LDA 

B 

*$20 

GET SPACE 

0EB1 

D7 

7E 


TYPE8A 

STA 

B 

OPCODE 

STORE FIRST BYTE 

0EB3 

DF 

71 



STX 


XTEMP4 

SAVE PTR 

0EB5 

BD 

OC 

86 


JSR 


ADDPC1 

KICK PC 

0EB8 

DE 

71 



LDX 


XTEMP4 

GET PTR BACK 

OEBA 

4A 




DEC 

A 


SEE IF DONE 

OEBB 

26 

01 



BNE 


TYPE8B 


OEBD 

39 




RTS 




OEBE 

97 

5A 


TYPE8B 

STA 

A 

DATFLG 

SET FLAG 

OECO 

86 

01 



LDA 

A 

*1 


0EC2 

97 

A6 



STA 

A 

BYTCNT 

SAVE BYTE COUNT 

0EC4 

E6 

00 


TYPE8E 

LDA 

B 

OrX 

GET CHAR 

0EC6 

08 




INX 



KICK PTR 

0EC7 

DF 

71 



STX 


XTEMP4 

SAVE 

0EC9 

7 D 

00 

5B 


TST 


FCCFLG 

CHECK FLAG 


40 
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LOCN 

B1 

B2 

B3 






OECC 

26 

06 



BNE 


TYPE8D 


OECE 

Cl 

OD 



CMP 

B 

#$D 

CHECK CR 

OEDO 

26 

04 



BNE 


TYPE8C 


0ED2 

97 

5B 



STA 

A 

FCCFLG 


0ED4 

C6 

20 


TYPE8D 

LDA 

B 

*$20 


0ED6 

DE 

87 


TYPE8C 

LDX 


BYTPTR 

GET STACK PTR 

0ED8 

E7 

00 



STA 

B 

OfX 

PUT ON STACK 

OEDA 

08 




INX 




OEDB 

DF 

87 



STX 


BYTPTR 

SAVE NEXT POSITION 

OEDD 

BD 

OC 

86 


JSR 


ADDPC1 


OEEO 

DE 

71 



LDX 


XTEMP4 

RETRIEVE PTR 

0EE2 

7A 

00 

5A 


DEC 


DATFLG 

COUNT OFF 

0EE5 

26 

DD 



BNE 


TYPE8E 

LOOP TILL DONE 

0EE7 

86 

01 



LDA 

A 

*1 


0EE9 

97 

90 



STA 

A 

OPCNT 

CORRECT OP COUNT 

OEEB 

97 

5A 



STA 

A 

DATFLG 

SET FLAG 

OEED 

7F 

00 

56 


CLR 


ERRFLG 

CLEAR ERROR SUPPRESS 

OEFO 

39 



* 

RTS 



DONE 

0EF1 

DE 

73 


Jr 

TYPE8F 

LDX 


XTEMP5 

GET START POINTER 

0EF3 

E6 

00 



LDA 

B 

0, X 

GET DELIMITER 

0EF5 

08 




INX 



MOVE PAST 

0EF6 

A6 

00 



LDA 

A 

OtX 

GET CHAR 

0EF8 

97 

7E 



STA 

A 

OPCODE 

PUT AWAY 

OEFA 

DF 

71 



STX 


XTEMP4 


OEFC 

BD 

OC 

86 


JSR 


ADDPC1 

KICK PC 

OEFF 

DE 

71 



LDX 


XTEMP4 


0F01 

El 

01 



CMP 

B 

lfX 

CHECK END 

0F03 

26 

01 



BNE 


TYPE8G 


OF05 

39 




RTS 




0F06 

D7 

5A 


TYPE8G 

STA 

B 

DATFLG 

SET FLAG 

0F08 

86 

01 



LDA 

A 

*1 


OFOA 

97 

A6 



STA 

A 

BYTCNT 

SET COUNT 

OFOC 

08 




INX 



MOVE POINTER 

OFOD 

A6 

00 


TYPE8H 

LDA 

A 

0 r X 

GET CHAR 

OFOF 

08 




INX 




0F10 

DF 

71 



STX 


XTEMP4 

SAVE PTR 

OF 12 

DE 

87 



LDX 


BYTPTR 

GET STACK PTR 

0F14 

11 




CBA 



CHECK END 

0F15 

27 

15 



BEG 


TYPE8I 

IF SO, QUIT 

OF 17 

81 

OD 



CMP 

A 

#*D 

CHECK FOR CR 

0F19 

27 

11 



BEG 


TYPE8I 

IF SO, QUIT 

OF IB 

A7 

00 



STA 

A 

0,X 

PUT ON STACK 

OF ID 

08 




INX 




0F1E 

DF 

87 



STX 


BYTPTR 

SAVE NEW POSITION 

0F20 

8 C 

03 

00 


CPX 


♦BYTSTK+256 

0F23 

27 

13 



BEG 


TYPE8J 


0F25 

BD 

OC 

86 


JSR 


ADDPC1 


0F28 

DE 

71 



LDX 


XTEMP4 

GET SOURCE PTR BACK 

0F2A 

20 

El 



BRA 


TYPE8H 

LOOP TILL DONE 

0F2C 

7F 

00 

56 

TYPE8I 

CLR 


ERRFLG 

RESET ERROR SUPPRESSION 

0F2F 

86 

01 



LDA 

A 

*1 


0F31 

97 

90 



STA 

A 

OPCNT 

SET COUNT 

0F33 

39 




RTS 



DONE 


# 
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B2 
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OF 34 

8 D 

63 


TYPE8K 

BSR 


TYP10C 


0F36 

20 

02 



BRA 


TYPE8L 


0F38 

8 D 

F2 


TYPE8J 

BSR 


TYPESI 


0F3A 

7F 

00 

56 

TYPE8L 

CLR 


ERRFLG 

RESET FLAG 

0F3D 

86 

OB 



LDA 

A 

111 

SET ERROR 

0F3F 

7E 

07 

E5 

* 

JMP 


ASMERR 






* 

** TYPE9 








* HANDLES TYPE 

9 INSTRUCTIONS 

0F42 

CE 

02 

00 

TYPE9 

LDX 


IBYTSTK 


0F45 

DF 

87 



STX 


BYTPTR 

SET UP STACK 

0F47 

BD 

OB 

F2 


JSR 


PEVAL 

GO EVALUATE 

0F4A 

96 

7C 



LDA 

A 

QTEMP+1 

GET DATA 

0F4C 

97 

7E 



STA 

A 

OPCODE 

PUT AWAY 

0F4E 

BD 

OC 

86 

TYPE9C 

JSR 


ADDPC1 

KICK PC 

0F51 

DE 

6 B 



LDX 


XTEMP1 

GET SOURCE PTR 

0F53 

A6 

00 



LDA 

A 

0>X 


0F55 

81 

OD 



CMP 

A 

*$D 

CHECK DONE 

0F57 

27 

04 



BEQ 


TYPE9D 


0F59 

81 

2C 



CMP 

A 

*' t 


0F5B 

27 

05 



BEQ 


TYPE9A 


0F5H 

86 

01 


TYPE9D 

LDA 

A 

#1 


0F5F 

97 

90 



STA 

A 

OPCNT 

CORRECT COUNT 

0F61 

39 




RTS 




0F62 

97 

5A 


TYPE9A 

STA 

A 

DATFL.G 

SET 

0F64 

86 

01 



LDA 

A 

*1 


0 F66 

97 

A6 



STA 

A 

BYTCNT 

SET COUNT 

0F68 

08 



TYPE9B 

INX 



MOVE TO NEXT ARGUMENT 

0F69 

DF 

6 B 



STX 


XTEMP1 

SAVE PTR 

0F6B 

BD 

OB 

F2 


JSR 


PEVAL 

GO CRUNCH 

0F6E 

DE 

87 



LDX 


BYTPTR 

GET STACK 

0F70 

96 

7C 



LDA 

A 

QTEMP+1 

GET DATA 

0F72 

A7 

00 



STA 

A 

0»X 

SAVE IT 

■' t ■ : 1 . j • . * • 

0F74 

08 




INX 



0F75 

DF 

87 



STX 


BYTPTR 

UPDATE AND SAVE 

0F77 

8 C 

03 

00 


CPX 


♦BYTSTK+256 

0F7A 

27 

BC 



BEQ 


TYPE8J 


0F7C 

20 

DO 


* 

BRA 


TYPE9C 






* 

** TYPE10 








* EVALUATE TYPE 10 INSTRUCTION 

0F7E 

CE 

02 

00 

TYPE10 

LDX 


♦BYTSTK 


0F81 

DF 

87 



STX 


BYTPTR 

SET UP STACK 

0F83 

BD 

OB 

F2 


JSR 


PEVAL 

GO EVALUATE 

0F86 

DE 

7B 



LDX 


QTEMP 


0F88 

DF 

7E 



STX 


OPCODE 

PUT DATA 

0F8A 

BD 

OC 

7E 

TYP10A 

JSR 


ADDPC2 

KICK PC 

0F8D 

DE 

6 B 



LDX 


XTEMP1 

GET TERM PTR 

0F8F 

A6 

00 



LDA 

A 

OfX 

GET TERM 

0F91 

81 

OD 



CMP 

A 

*$D 

CHECK CR 

0F93 

27 

04 



BEQ 


TYP10C 


0F95 

81 

2C 



CMP 

A 

*' f 


0F97 

27 

05 



BEQ 


TYP10B 
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LOCN 

B1 

B2 

B3 




0F99 

86 

02 


TYP10C 

LDA 

A 

0F9B 

97 

90 



STA 

A 

0F9D 

39 




RTS 


0F9E 

97 

5A 


TYP10B 

STA 

A 

OF AO 

86 

02 



LDA 

A 

0 FA2 

97 

A6 



STA 

A 

0FA4 

08 




INX 


0FA5 

DF 

6 B 



STX 


0FA7 

BD 

OB 

F2 


JSR 


OFAA 

DE 

87 



LDX 


OFAC 

96 

7B 



LDA 

A 

OFAE 

A7 

00 



STA 

A 

OFBO 

96 

7C 



LDA 

A 

0FB2 

A7 

01 



STA 

A 

0FB4 

08 




INX 


0FB5 

08 




INX 


0FB6 

DF 

87 



STX 


0FB8 

SC 

03 

00 


CPX 


OFBB 

20 

CD 



BRA 






* 



OFBD 

7F 

00 

59 

TYPE11 

CLR 


OFCO 

96 

8 F 



LDA 

A 

0FC2 

27 

25 



BEG 


0FC4 

96 

5D 



LDA 

A 

0FC6 

27 

21 



BEG 


0FC8 

96 

4F 



LDA 

A 

OFCA 

26 

IE 



BNE 


OFCC 

96 

AE 



LDA 

A 

OFCE 

27 

19 



BEG 


OFDO 

BD 

11 

D5 


JSR 


0FD3 

D6 

7C 



LDA 

B 

0FD5 

26 

02 



BNE 


0FD7 

C6 

01 



LDA 

B 

0FD9 

BD 

07 

BA 

TYP11A 

JSR 


OFDC 

96 

5C 



LDA 

A 

OFDE 

26 

03 



BNE 


OFEO 

5A 




DEC 

B 

0FE1 

26 

F6 



BNE 


0FE3 

7F 

00 

5C 

TYP11B 

CLR 


0FE6 

7F 

00 

5E 


CLR 


0FE9 

39 



TYP11C 

RTS 






* 



OFEA 

7E 

10 

B4 

TYPERR 

JMP 






* 



OFED 

7F 

00 

59 

TYPE12 

CLR 


OFFO 

96 

8 F 



LDA 

A 

0FF2 

26 

F5 



BNE 


0FF4 

96 

4F 



LDA 

A 

0FF6 

26 

F2 



BNE 


0FF8 

DE 

6 B 


TYP12D 

LDX 


OFFA 

A6 

02 



LDA 

A 

OFFC 

97 

7D 



STA 

A 

OFFE 

A6 

00 



LDA 

A 

1000 

E6 

01 



LDA 

B 

1002 

CE 

10 

41 


LDX 



#2 

OPCNT 

CORRECT COUNT 

DATFLG 

SET MULT DATA FLAG 

*2 


BYTCNT 

SET COUNT 

XTEMP1 

MOVE PAST TERM 

SET NEW INDEX 

PEVAL 

GO EVALUATE NEXT 

BYTPTR 

GET POINTER 

GTEMP 

OfX 

GTEMP+1 

IfX 

BYTPTR 

PUT DATA AND ADJUST 
SAVE PTR 

♦BYTSTK+256 

TYP10A 

LOOP TILL DONE 

PCFLAG 

TURN PC OFF 

PASS 

TYP11C 

IF PASS 1 IGNORE 

P3FLG 

TYP11C 

LABEL 

TYPERR 

LIST 

SEE IF LIST ON 

TYP11C 

IF NOTf IGNORE 

EVAL 

CRUNCH IT 

GTEMP+1 

GET COUNT 

TYP11A 


*1 

SET 1 LINE 

PCRLF 

DO LF 

EJFLG 

SEE IF EJECTED 

TYP11B 

IF SOf QUIT 

TYP11A 

COUNT OFF 

LOOP TILL DONE 

EJFLG 

RESET FLAG 

PRTFLG 

DON'T PRINT 

TYP15A 

DONE 

PCFLAG 

PASS 

TYP11C 

LABEL 

TYPERR 

XTEMP1 

GET ARG POINTER 

2fX 

TEMP 

SAVE 

OfX 


1 F X 

GET SWITCH ID 

♦QPTLST 

POINT TO LIST 


43 
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LOCN 

B1 

B2 

B3 






1005 

A1 

00 


TYP12A 

CMP 

A 

OfX 

SEE IF MATCH 

1007 

27 

10 



BEG 


TYP12B 


1009 

08 



TYP12C 

INX 




100A 

08 




INX 




100B 

08 




INX 




100C 

08 




INX 




100 D 

08 




INX 




100E 

08 




INX 



ABVANCE PTR 

100 F 

8 C 

10 

89 


CPX 


♦OPNENB+6 

SEE IF TABLE ENB 

1012 

26 

FI 



BNE 


TYP12A 

LOOP 

1014 

86 

OA 



LBA 

A 

#10 


1016 

7E 

07 

E5 


JMP 


ASMERR 

SET ERROR NUMBER ANB 

1019 

El 

01 


TYP12B 

CMP 

B 

lrX 

SEE IF SECONB MATCH 

101B 

26 

EC 



BNE 


TYP12C 

IF NOT t GO BACK 

loin 

36 




PSH 

A 



101E 

96 

7D 



LBA 

A 

TEMP 

GET 3RB CHAR 

1020 

A1 

02 



CMP 

A 

2fX 

SEE IF MATCH 

1022 

32 




PUL 

A 



1023 

26 

E4 



BNE 


TYP12C 

IF NOT r LOOP 

1025 

A6 

03 



LBA 

A 

3»X 

GET BATA 

1027 

EE 

04 



LBX 


ArX 

GET ABBRESS 

1029 

A7 

00 



STA 

A 

OrX 

SET SWITCH 

102B 

BE 

6 B 



LBX 


XTEMP1 


102 D 

A6 

00 


FNBENB 

LBA 

A 

OtX 


102F 

08 




INX 




1030 

DF 

6 B 



STX 


XTEMP1 


1032 

81 

OB 



CMP 

A 

*$B 


1034 

27 

OA 



BEG 


OPTBON 


1036 

81 

20 



CMP 

A 

*' 


1038 

27 

06 



BEG 


OPTBON 


103 A 

81 

2C 


i ., ( : 

CMP 

A 

*'r 


103C 

27 

BA 



BEG 


TYP12D 


103E 

20 

EB 



BRA 


FNBENB 


1040 

39 



OPTBON 

RTS 



BONE 





* 

r ’ •* , x i 




1041 

4C 



OPTLST 

FCC 


'LIS' 


1042 

49 




. *' 4 41 i*‘~ *. 




1043 

53 




* '•<!*}?'. - 




1044 

FF 




FCB 


*FF 


1045 

00 

AE 



FBB 


LIST 


1047 

4E 




FCC 


'NOL' 


1048 

4F 








1049 

4C 








104A 

00 




FCB 


0 


104B 

00 

AE 



FBB 


LIST 


104D 

54 




FCC 


'TAP' 


104E 

41 








104F 

50 






* ■ 


1050 

FF 




FCB 


*FF 


1051 

00 

B2 


' ; /' . 

FBB 


TAPE 


1053 

4E 




FCC 


'NOT' 


1054 

4F 








1055 

54 








1056 

00 




FCB 


0 


1057 

00 

B2 



FBB 


TAPE • 
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LOCN 

B1 
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105? 

4D 



FCC 

'MEM' 

105A 

45 





105B 

4D 





105C 

FF 



FCB 

♦FF 

105D 

00 

B3 


FDB 

MEMORY 

105F 

4E 



FCC 

'NOM' 

1060 

4F 





1061 

4D 





1062 

00 



FCB 

0 

1063 

00 

B3 


FDB 

MEMORY 

1065 

53 



FCC 

'SYM' 

1066 

59 





1067 

4D 





1068 

FF 



FCB 

♦FF 

1069 

00 

AF 


FDB 

SYMBOL 

106B 

4E 



FCC 

'NOS' 

106C 

4F 





106D 

53 





106E 

00 



FCB 

0 

106F 

00 

AF 


FDB 

SYMBOL 

1071 

47 



FCC 

'GEN' 

1072 

45 





1073 

4E 





1074 

FF 



FCB 

♦FF 

1075 

00 

BO 


FDB 

GENER 

1077 

4E 



FCC 

'NOG' 

1078 

4F 





1079 

47 





107A 

00 



FCB 

0 

107B 

00 

BO 


FDB 

GENER 

107D 

50 



FCC 

'PAG' 

107E 

41 





107F 

47 





1080 

FF 



FCB 

♦FF 

1081 

00 

B1 


FDB 

PAGER 

1083 

4E 


OPNEND 

FCC 

'NOP y 

1084 

4F 





1085 

50 





1086 

00 



FCB 

0 

1087 

00 

B1 


FDB 

PAGER 




* 






* 



1089 

7F 

00 59 

TYPE13 

CLR 

PCFLAG 

108C 

96 

8 F 


LDA A 

PASS 

108E 

27 

11 


BEG 

TYP13A 

1090 

96 

4F 


LDA A 

LABEL 

1092 

26 

20 


BNE 

TYP15A 

1094 

97 

5E 


STA A 

PRTFLG 

1096 

96 

B1 


LDA A 

PAGER 

1098 

27 

07 


BEG 

TYP13A 

109A 

96 

AE 


LDA A 

LIST 

109C 

27 

03 


BEG 

TYP13A 

109E 

7F 

00 5F 


CLR 

PAGFLG 

10A1 

39 


TYP13A 

RTS 
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SEE IF PAGER ON 
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SEE IF LIST ON 
IF NOT r IGNORE 
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10A2 

96 

4F 


TYPE14 

LDA 

A 

10A4 

26 

OE 



BNE 


10A6 

BD 

11 

D5 


JSR 


10A9 

DE 

7B 



L.DX 


10AB 

DF 

4B 



STX 


10AD 

DF 

6 D 



STX 


10 AF 

39 




RTS 






* 



10B0 

96 

4F 


TYPE15 

LDA 

A 

10B2 

26 

05 



BNE 


10B4 

86 

07 


TYP15A 

LDA 

A 

10B6 

7E 

07 

E5 


JMP 


10B9 

BD 

09 

05 

EGU1 

JSR 


10BC 

DF 

FD 



STX 


10BE 

96 

8 F 



LDA 

A 

10C0 

4A 




DEC 

A 

10C1 

97 

56 



STA 

A 

10C3 

BD 

11 

D5 


JSR 


10C6 

7F 

00 

56 


CLR 


10C9 

DE 

FD 



LDX 


10CB 

96 

7C 



LDA 

A 

10CD 

D6 

7B 



LDA 

B 

10CF 

E7 

06 



STA 

B 

10D1 

A7 

07 



STA 

A 

10D3 

DE 

7B 



LDX 


10D5 

DF 

6 D 



STX 


10D7 

39 



TYP15C 

RTS 


10 B8 

96 

84 



LDA 

A 

10DA 

7E 

07 

E5 


JMP 






* 



10DD 

7F 

00 

59 

TYPE16 

CLR 


10E0 

96 

4F 



LDA 

A 

10E2 

26 

DO 



BNE 


10E4 

86 

FF 



LDA 

A 

10E6 

97 

58 



STA 

A 

10E8 

39 




RTS 






* 



10E9 

7F 

00 

59 

TYPE17 

CLR 


10EC 

96 

8 F 



LDA 

A 

10EE 

27 

2E 



BEG 


10F0 

96 

4F 



LDA 

A 

10F2 

26 

CO 



BNE 


10F4 

CE 

00 

C 6 


LDX 


10F7 

DF 

65 



STX 


10F9 

DE 

96 


NAM1 

LDX 


10FB 

A6 

00 



LDA 

A 

10FD 

81 

OD 



CMP 

A 

10FF 

27 

OF 



BEG 


1101 

08 




INX 


1102 

DF 

96 



STX 


1104 

DE 

65 


t . N ; 

LDX 


1106 

A7 

00 



STA 

A 

1108 

08 




INX 


1109 

DF 

65 



STX 


HOB 

8 C 

00 

E6 


CPX 



LABEL 

TYP15A 

EVAL GO EVALUATE OPERAND 

GTEMP GET RESULT 

PC SET PC 

XTEMP2 


LABEL 

EQU1 

♦ 7 SET ERROR 

ASMERR 

FNDLBL FIND LABEL 
$FD 

PASS CHECK PASS 

ERRFLG 

EVAL GO EVALUATE 

ERRFLG 

$FD 

QTEMP+1 
QTEMP 
6 1 X 
7* X 
OTEMP 
XTEMP2 

LSTERR ELSE ERROR 

ASMERR GO REPORT 

PCFLAG 
LABEL 
TYP15A 
♦$FF , 

ENDFLG 


PCFLAG 

PASS 

NAM3 IF PASS1 IGNORE 

LABEL 

TYP15A 

♦TITLE 

XSAVE SAVE PTR 

OPNPTR GET POINTER 

0>X 

♦$D CHECK FOR CR 

NAM2 

GET TO NEXT 
OPNPTR 

XSAVE GET OTHER PTR 

OrX 

XSAVE UPDATE 

♦TITLE+32 
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110E 

26 

E9 



BNE 


NAM1 


1110 

86 

20 


NAM2 

LDA 

A 

*$20 


1112 

BE 

65 



LDX 


XSAVE 


1114 

8 C 

00 

E6 

FILTIT 

CPX 


♦TITLE+32 


1117 

27 

05 



BEG 


NAM3 


1119 

A7 

00 



STA 

A 

0,X 


11 IB 

08 




I NX 




me 

20 

F6 



BRA 


FILTIT 


11 IE 

39 



NAM3 

* 

* 

RTS 




11 IF 

BD 

11 

D5 

TYPE18 

JSR 


EVAL 


1122 

CE 

00 

7B 


LDX 


♦GTEMP 


1125 

D6 

4C 



LDA 

B 

PC+1 


1127 

96 

4B 



LDA 

A 

PC 


1129 

BD 

OC 

FA 


JSR 


ADD16 


112C 

BE 

7B 



LDX 


GTEMP 


112E 

DF 

4B 



STX 


PC 


1130 

39 




RTS 








** EJECT 




1131 

37 



EJECT 

PSH 

B 



1132 

D6 

B1 



LDA 

B 

PAGER 

SEE IF PAGE ON 

1134 

27 

65 



BEG 


NOEJT 

IF NOT, SKIP 

1136 

CE 

11 

D1 


LDX 


♦EJSTR 

POINT TO EJECT STRING 

1139 

BD 

07 

AB 


JSR 


PDATA 

PRINT THE CHARS 

113C 

37 




PSH 

B 



113D 

4F 




CLR 

A 



113E 

97 

A8 



STA 

A 

LINCNT 


1140 

97 

B1 



STA 

A 

PAGER 

TURN PAGER OFF 

1142 

C6 

03 



LDA 

B 

*3 


1144 

27 

06 



BEG 


MARDON 


1146 

BD 

07 

BA 

PRTMAR 

JSR 


PCRLF 


1149 

5A 




DEC 

B 



114A 

26 

FA 



BNE 


PRTMAR 

PRINT MARGIN 

114C 

CE 

00 

C6 

MARDON 

LDX 

. '14' i 

♦TITLE 


114F 

BD 

07 

AB 


JSR 


PDATA 

SET IN TITLE 

1152 

CE 

11 

A9 


LDX 


#PPP 


1155 

BD 

07 

AB 


JSR 


PDATA 

PRINT HEADER 

1158 

96 

AD 



LDA 

A 

PAGENO+1 


115A 

8 B 

01 



ADD 

A 

*1 KICK PAGE COUNT 

115C 

19 




DAA 




115D 

97 

AD 



STA 

A 

PAGENO+1 


115F 

96 

AC 



LDA 

A 

PAGENO 


1161 

89 

00 



ADC 

A 

*0 


1163 

19 




DAA 




1164 

97 

AC 



STA 

A 

PAGENO 


1166 

27 

OC 



BEG 


PPAG2 


1168 

84 

FO 



AND 

A 

#$F0 


116A 

27 

03 



BEG 


PPAG6 


116C 

8 D 

2F 



BSR 


OUTHL 

PRINT MS 

116E 

5C 




INC 

B 


SET FLAG 

116F 

96 

AC 


PPAG6 

LDA 

A 

PAGENO 

GET BYTE 

1171 

8 D 

30 



BSR 


OUTHR 

PRINT LS OF MS 

1173 

5C 




INC 

B 



1174 

96 

AD 


PPAG2 

LDA 

A 

PAGENO+1 

GET LS BYTE 
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1176 

27 

IE 



BEG 


PPAG3 


1178 

5D 




TST 

B 


SEE IF PRINTED YET 

1179 

26 

04 



BNE 


PPAG5 

IF SOr JUST PRINT 

117B 

85 

FO 



BIT 

A 

**F0 

CHECK MS DIGIT 

117D 

27 

04 



BEG 


PPAG4 

IF Of DON'T PRINT 

117F 

8 D 

1C 


PPAG5 

BSR 


OUTHL 

PRINT 

1181 

96 

AD 



LDA 

A 

PAGENO+1 


1183 

8 D 

IE 


PPAG4 

BSR 


OUTHR 


1185 

BD 

07 

BA 


JSR 


PCRLF 


1188 

BD 

07 

BA 


JSR 


PCRLF 


118B 

86 

FF 



LDA 

A 

♦ $FF 


118D 

97 

5C 



STA 

A 

EJFLG 


118F 

97 

5F 



STA 

A 

PAGFLG 


1191 

33 




PUL 

B 


GET PAGE STATUS 

1192 

D7 

B1 



STA 

B 

PAGER 

RESTORE 

1194 

33 




PUL 

B 



1195 

39 




RTS 



DONE 

1196 

5D 



PPAG3 

TST 

B 


CHECK IF PRINTED 

1197 

26 

E6 



BNE 


PPAG5 


1199 

20 

E8 



BRA 


PPAG4 


119B 

33 



NOEJT 

PUL 

B 



119C 

39 




RTS 



DONE 

119D 

BD 

OC 

DB 

OUTHL 

JSR 


HEXL 


11A0 

7E 

03 

20 


JMP 


OUTCH 


11A3 

BD 

OC 

DF 

OUTHR 

JSR 


HEXR 


11A6 

7E 

03 

20 


JMP 


OUTCH 


11A9 

20 



PPP 

FCC 


/ 

/ 

11A A 

20 








11AB 

20 








11 AC 

20 








HAD 

20 








11AE 

20 






i .j f [ ' 


11AF 

20 







Q i 

11B0 

20 




TV*'O 


| • 


11B1 

54 




FCC 
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43 
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20 




TMIf 




11B5 

4D 
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4E 





4 f »* 


. .f: 'VI ^ J '■> : 

11B7 

45 








11B8 

4D 






. 


11B9 

4F 






• 


11BA 

4Ei 








1 IBB 

49 








11BC 

43 






i. ; ;* i ? ? : ’ 


1 1BD 

20 






: 


11BE 

41 








11BF 

53 








11C0 

53 








11C1 

45 








11C2 

4D 








11C3 

42 








11C4 

4C 








11C5 

45 
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11C6 

52 





11C7 

20 





11C8 

20 





11C? 

20 





11CA 

20 





11CB 

50 





11 CC 

41 





11CD 

47 





1 ICE 

45 





11CF 

20 





1 IDO 

04 



FCB 


11D1 

00 


EJSTR 

FCB 


11D2 

00 





11D3 

OA 





11D4 

04 


* 

** EVAL 






* EVALUATE AN 

1 IDS 

4F 


EVAL 

CLR 

A 

11D6 

97 

7B 


STA 

A 

11D8 

97 

7C 


STA 

A 

11 DA 

97 

63 


STA 

A 

11 DC 

DE 

6 B 


LDX 


1 IDE 

DF 

96 


STX 


11E0 

DE 

96 

EVAL1A 

LDX 


11E2 

A6 

00 

FINDSC 

LDA 

A 

11E4 

08 



I NX 


11E5 

5F 



CLR 

B 

11E6 

81 

2B 


CMP 

A 

11E8 

27 

27 


BEQ 


11EA 

5C 



INC 

B 

11EB 

81 

2D 


CMP 

A 

11ED 

27 

22 


BEQ 


11 EF 

5C 



INC 

B 

11F0 

81 

2A 


CMP 

A 

11F2 

26 

OA 


BNE 


11F4 

09 



DEX 


11F5 

9C 

96 


CPX 


11F7 

07 



TPA 


11F8 

08 



I NX 


11F9 

06 



TAP 


UFA 

27 

E6 


BEQ 


11FC 

20 

13 


BRA 


11 FL¬ 

5C 


FINDS4 

INC 

B 

UFF 

81 

2F 


CMP 

A 

1201 

27 

OE 


BEQ 


1203 

C6 

FF 

F2 

LDA 

B 

1205 

81 

20 


CMP 

A 

1207 

27 

08 


BEQ 


120 ? 

81 

2C 


CMP 

A 

120 B 

27 

04 


BEQ 


120D 

81 

OD 


CMP 

A 

120F 

26 

D1 


BNE 


1211 

D7 

64 

FI 

STA 

B 

1213 

09 



DEX 



A 

0f0r*A,A 


OPERAND EXPRESSION 


QTEMP 

QTEMP+1 

OPN 

INITIALIZE 

XTEMP1 

OPNPTR 

SET 

POINTER 

OPNPTR 

GET 

OPERAND PTR 

OrX 

GET 

CHAR 

*' + 

FI 




FI 

*'* 

FINDS4 

OPNPTR 


FINDSC 

FI 

#'/ 

FI 

*$FF 

*' 

FI 

*' t 

FI 

#*D 

FINDSC 

TERM SAVE TERMINATOR 

ADJUST 
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1214 

DF 

6 B 



STX 


XTEMPI 


1216 

BE 

96 


LOAD 

LDX 


OPNPTR 

GET POINTER 

1218 

7F 

00 

7D 


CLR 


TEMP 


121B 

A 6 

00 



LDA 

A 

0,X 

GET CHARACTER 

121 Ei 

81 

41 



CMP 

A 

# 7 A 


121F 

25 

IF 



BCS 


L0AD1 


1221 

81 

5A 



CMP 

A 

# 7 Z 


1223 

90 

A~ Am 

IB 



BHI 


L0AD1 

CHECK FOR LABEL 

1225 

DF 

79 



STX 


GTEMP2 

SAVE X 

1227 

BD 

OC 

65 


JSR 


CLRLAB 

SET LABEL TO ZERO 

122A 

DE 

79 



LDX 


GTEMP2 

GET X BACK 

122C 

BD 

OC 

8 F 


JSR 


COPLBL 


122 F 

BD 

0 ? 

05 


JSR 


FNDLBL 

GO GET VALUE 

1232 

EE 

06 



LDX 


6tX 

GET VALUE 

1234 

DF 

79 



STX 


QTEMP2 

STORE IT 

1236 

DE 

6 B 



LDX 


XTEMP1 


1238 

4D 




TST 

A 


SEE IF FOUND 

123? 

2A 

50 



BPL 


L5 


123B 

86 

01 



LDA 

A 

*1 


123D 

7E 

12 

?8 


JMP 


F3 


1240 

C 6 

01 


L0AD1 

LDA 

B 

*1 

SET ID 

1242 

81 

24 



CMP 

A 

# 7 $ 

CHECK FOR BASE TAGS 

1244 

27 

2F 



BEG 


LI 


1246 

5C 




INC 

B 



1247 

81 

25 



CMP 

A 

*$25 

PERCENT 

124? 

27 

2A 



BEG 


LI 


124B 

5C 




INC 

B 



124C 

81 

40 



CMP 

A 

#'(3 


124E 

27 

25 



BEG 


LI 


1250 

5C 




INC 

B 



1251 

81 

27 



CMP 

A 

*$27 

CHECK FOR SINGLE QUOTE 

1253 

27 

20 



BEG 


LI 


1255 

DE 

6 B 



LDX 


XTEMP1 

GET END POINTER 

1257 

0 ? 




DEX 



MOVE TO LAST CHAR 

1258 

7C 

00 

7 D 


INC 


TEMP 

• r ' 

125B 

5A 




DEC 

B 



125C 

A 6 

00 



LDA 

A 

0 r X 

GET IT 

125E 

81 

4F 



CMP 

A 

# 7 0 

CHECK OCTAL 

1260 

27 

16 



BEG 


L2 


1262 

81 

51 



CMP 

A 

* 7 Q 

CHECK OCTAL 

1264 

27 

12 



BEG 


L2 


1266 

5A 




DEC 

B 



1267 

81 

42 



CMP 

A 

* 7 B 

CHECK BINARY 

126? 

27 

OD 



BEG 


L2 


126B 

5A 




DEC 

B 



126C 

81 

48 



CMP 

A 

* 7 H 

CHECK HEX 

126E 

27 

08 



BEG 


L2 


1270 

5A 




DEC 

B 


SET DECIMAL 

1271 

D7 

7D 



STA 

B 

TEMP 


1273 

20 

03 



BRA 


L2 


1275 

08 



LI 

INX 



MOVE TO FIRST CHAR OF CONST 

1276 

DF 

96 



STX 


OPNPTR 

SAVE 

1278 

4F 



L2 

CLR 

A 



127? 

97 

79 



STA 

A 

GTEMP2 


127B 

97 

7(\ 



STA 

A 

GTEMP2+1 
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127D 

CE 

12 

C9 


LDX 

♦BCONV 

POINT TO TABLE 

1280 

58 




ASL. B 



1281 

27 

04 



BEQ 

L4 


1283 

08 



L3 

INX 



1284 

5A 




DEC B 



1285 

26 

FC 



BNE 

L.3 

GET TO ADDRESS 

1287 

EE 

00 


L4 

LDX 

0»X 

GET ADDRESS 

1289 

AD 

00 



JSR 

OfX 

COLLECT DATA 

128B 

96 

7D 


L5 

LDA A 

TEMP 

CHECK FRE OR POST 

128D 

27 

01 



BEQ 

L6 


128F 

08 




INX 



1290 

DF 

71 


L6 

STX 

XTEMF'4 

SAVE 

1292 

9C 

6B 



CPX 

XTEMP1 

SEE IF GOT ALL 

1294 

27 

OB 



BEQ 

EVAL1B 


1296 

86 

09 



LDA A 

#9 


1298 

7F 

00 

7B 

F3 

CLR 

QTEMP 


129B 

7F 

00 

7C 


CLR 

QTEMP+1 

RESET ARG 

129E 

7E 

07 

E5 


JMP 

ASMERR 

GO TO ERROR 

12A1 

96 

63 


EVAL1B 

LDA A 

OPN 

GET OPERATION 

12A3 

CE 

12 

Cl 


LDX 

♦OPNTBL 

POINT TO JUMP TABLE 

12A6 

48 




ASL A 



12A7 

27 

04 



BEQ 

EVAL3 


12A9 

08 



EVAL2 

INX 


POINT NEXT 

12AA 

4A 




DEC A 



12AB 

26 

FC 



BNE 

EVAL2 

MOVE TO TARGET 

12 AD 

EE 

00 


EVAL3 

LDX 

0*X 

GET TARGET ADDR. 

12AF 

AD 

00 



JSR 

0*X 

DO OPERATION 

12B1 

DE 

6B 



LDX 

XTEMF'l 

GET POINTER 

12B3 

08 




INX 



12B4 

DF 

96 



STX 

OPNPTR 

SAVE PLACE 

12B6 

96 

64 



LDA A 

TERM 

GET LAST TERM 

12B8 

97 

63 



STA A 

OPN 

SAVE OPERATION 

12BA 

2B 

03 


;Jj \p m 

BMI 

EVAL4 

IF A TERMINATOR* DONE 

12BC 

7E 

11 

EO 


JMP 

EVAL1A 

ELSE PROCESS AGAIN 

12BF 

4F 



EVAL4 

CLR A 

• . ■ • 

DONE 

12C0 

39 



Or 

RTS 



12C1 

12 

D3 


* 

OF'NTBL 

FDB 

OPADD 


12C3 

12 

DD 



FDB 

OPSUB 


12C5 

12 

E7 



FDB 

OPMUL 


12C7 

13 

OF 


Or 

FDB 

OPDIV 


12C9 

13 

5B 


X 

BCONV 

FDB 

DECM 


12CB 

13 

9A 



FDB 

HEX 


12CD 

13 

BA 



FDB 

BIN 


12CF 

13 

DO 



FDB 

OCT 


12D1 

13 

E7 



FDB 

ASC 


12D3 

96 

79 


OFADD 

LDA A 

QTEMP2 


12D5 

D6 

7A 



LDA B 

QTEMP2+1 

GET OPERAND 

12D7 

CE 

00 

7B 


LDX 

♦QTEMP 

POINT TO ACC. 

12DA 

7E 

OC 

FA 


JMP 

ADD 16 

GO ADD 

12DD 

96 

79 


OF'SUB 

LDA A 

QTEMP2 


12DF 

D6 

7A 



LDA B 

QTEMP2+1 




TSC 6800 ASSEMBLER SYSTEM 01.4 


LOCN 

B1 

B2 

B3 




12E1 

CE 

00 

7B 


LDX 


12E4 

7E 

OC 

E8 

* 

JMP 


12E7 

CE 

00 

00 

OPMUL 

LDX 


12EA 

DF 

77 



STX 


12EC 

CE 

00 

77 


LDX 


12EF 

C6 

10 



LDA 

B 

12F1 

A6 

03 


0PMUL2 

LDA 

A 

12F3 

46 




ROR 

A 

12F4 

24 

09 



BCC 


12F6 

37 




PSH 

B 

12F7 

A6 

04 



LDA 

A 

12F9 

E6 

05 



LDA 

B 

12FB 

BD 

OC 

FA 


JSR 


12FE 

33 




PUL 

B 

12FF 

64 

00 


0PMUL3 

LSR 


1301 

66 

01 



ROR 


1303 

66 

02 



ROR 


1305 

66 

03 



ROR 


1307 

5A 




DEC 

B 

1308 

26 

E7 



BNE 


130A 

EE 

02 



LDX 


130C 

DF 

7B 



STX 


130E 

39 



* 

RTS 


130F 

CE 

00 

00 

OPDIV 

LDX 


1312 

DF 

77 



STX 


1314 

DE 

79 



LDX 


1316 

D6 

7C 



LDA 

B 

1318 

D7 

7A 



STA 

B 

131A 

D6 

7B 



LDA 

B 

131C 

D7 

79 



STA 

B 

131E 

DF 

7B 



STX 


1320 

C6 

11 



LDA 

B 

1322 

CE 

00 

77 


LDX 


1325 

37 



0PDIV1 

PSH 

B 

1326 

96 

7B 



LDA 

A 

1328 

D6 

7C 



LDA 

B 

132 A 

BD 

OC 

E8 


JSR 


132D 

25 

08 



BCS 


132F 

96 

7B 



LDA 

A 

1331 

D6 

7C 



LDA 

B 

1333 

BD 

OC 

FA 


JSR 


1336 

OC 




CLC 


1337 

69 

03 


0PDIV3 

ROL 


1339 

69 

02 



ROL 


133B 

69 

01 



ROL 


133D 

69 

00 



ROL 


133F 

33 




PUL 

B 

1340 

5A 




DEC 

B 

1341 

26 

E2 



BNE 


1343 

EE 

02 



LDX 


1345 

DF 

7B 



STX 


1347 

39 




RTS 



* 


PAGE 


♦GTEMP 

SUB16 


*0 

QTEMF‘3 

♦GTEMP3 

SET ACCUM. 

*16 

SET COUNT 

3»X 

CHECK BIT 

0PMUL3 


4»X 


5 r X 

GET OPERANDS 

ADD 16 

ADD IN 

OrX 


1»X 


2 f X 


3 r X 

COUNT OFF 

0PMLJL2 

2» X 

GET RESULT 

QTEMP 

SAVE 


*0 

0TEMP3 

QTEMP2 

GTEMP+1 

GTEMF‘2+1 

INIT♦ ACCUM. 

GTEMP 

GTEMP2 

GTEMP 

MOVE OPERAND 

*17 

SET COUNT 

♦GTEMP3 

POINT TO ACC. 

GTEMP 

GTEMP+1 

SUB16 

0PDIV3 

GTEMP 

GTEMP+1 

■ 

ADD16 

ADD BACK 

3>X 


2 r X 


lrX 


OtX 

SHIFT IT 
RETRIEVE COUNT 
COUNT OFF 

0PDIV1 

DO AGAIN 

2tX 

GET RESULT 

GTEMP 

SAVE 


DONE 


52 
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B1 

B2 B3 





1348 

E6 

00 

* 

INDEC 

LDA 

B 

OrX 

GET A CHAR 

134A 

CO 

3A 


SUB 

B 

♦ $3A 

REMOVE BIAS 

134C 

24 

02 


BCC 


INDEC2 


134E 

CB 

OA 


ADD 

B 

#*A 

CORRECT 

1350 

39 


INDEC2 

* 

RTS 




1351 

96 

6D 

SPCL 

LDA 

A 

XTEMP2 


1353 

97 

79 


STA 

A 

GTEMP2 


1355 

96 

6E 


LDA 

A 

XTEMP2+1 


1357 

97 

7A 


STA 

A 

GTEMP2+1 


1359 

08 



INX 



ALIGN POINTER- 

135A 

39 


* 

RTS 




135B 

8D 

2B 

DECM 

BSR 


INITR 

GO INITIALIZE 

135D 

A6 

00 


LDA 

A 

OfX 


135F 

81 

2A 


CMP 

A 

#'* 

CHECK SPECIAL CHAR 

1361 

27 

EE 


BEG 


SPCL 


1363 

8D 

E3 

DECM2 

BSR 


INDEC 

GO FETCH 

1365 

24 

20 


BCC 


DECM3 


1367 

37 



PSH 

B 



1368 

96 

79 


LDA 

A 

GTEMP2 


136A 

DA 

7A 


LDA 

B 

GTEMP2+1 


136C 

8D 

25 


BSR 


LONE 

LEFT ONE 

136E 

8D 

23 


BSR 


LONE 

AGAIN 

1370 

BB 

7A 


ADD 

B 

GTEMP2+1 


1372 

D7 

7A 


STA 

B 

GTEMP2+1 

ADD IN 

1374 

99 

79 


ADC 

A 

GTEMP2 


1376 

97 

79 


STA 

A 

GTEMP2 


1378 

8D 

19 


BSR 


LONE 

LEFT AGAIN 

137A 

33 



PUL 

B 



137B 

4F 



CLR 

A 



137C 

DB 

7A 


ADD 

B 

GTEMP2+1 


137E 

99 

79 


ADC 

A 

GTEMP2 


1380 

D7 

7A 


STA 

B 

GTEMP2+1 


1382 

97 

79 


STA 

A 

QTEMP2 


1384 

08 



INX 




1385 

20 

DC 


BRA 


DECM2 

GO AT IT AGAIN 

1387 

39 


DECM3 

•Jf 

RTS 




1388 

DEE 

96 

INITR 

LDX 


OPNPTR 

GET POINTER- 

138A 

7F 

00 79 

CLR 


GTEMP2 


138D 

7F 

00 7A 

CLR 


GTEMP2+1 

ZERO ACCUMULATOR 

1390 

39 



RTS 




1391 

8D 

00 

LTWO 

BSR 


LONE 

LEFT ONE 

1393 

78 

* 

00 7A LONE 

ASL 


GTEMP2+1 


1396 

79 

00 79 

ROL 


GTEMP2 


1399 

39 


* 

RTS 




139A 

8D 

EC 

HEX 

BSR 


INITR 

INITIALIZE 

139C 

A6 

00 

HEX2 

LDA 

A 

0*X 

GET CHAR 

139E 

80 

47 

. f f * * 

SUB 

A 

#'G 

REMOVE BIAS 

13A0 

2 A 

17 


BPL 


HEX4 
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13A2 

8B 

06 



ADD 

A 

*6 

ADD ON 

13A4 

2A 

04 



BPL 


HEX3 


13A6 

8B 

07 



ADD 

A 

#7 

ADD AGAIN 

13A8 

2A 

OF 



BPL 


HEX4 

REMOVE $3A -- $40 

13AA 

8B 

OA 


HEX3 

ADD 

A 

#10 

CORRECT 

13AC 

2B 

OB 



BMI 


HEX4 

REMOVE <$30 

13AE 

8D 

El 



BSR 


LTUO 


13 BO 

8B 

DF 



BSR 


LTWO 


13B2 

9B 

7A 



ADD 

A 

GTEMP2+1 


13B4 

97 

7A 



STA 

A 

GTEMP2+1 


13B6 

08 




INX 




13B7 

20 

E3 



BRA 


HEX2 


13B9 

39 



HEX4 

* 

RTS 




13BA 

8D 

CC 


♦ 

BIN 

BSR 


INITR 


13BC 

A6 

00 


BIN2 

LDA 

A 

OfX 


13BE 

80 

30 



SUB 

A 

#$30 


13C0 

2B 

F7 



BMI 


HEX4 


13C2 

81 

01 



CMP 

A 

#1 


13C4 

“7? 

A- 

F3 



BHI 


HEX4 


13C6 

46 




ROR 

A 



13C7 

79 

00 

7A 


ROL 

GTEMP2+1 


13CA 

79 

00 

79 


ROL 


GTEMP2 


13CD 

08 




INX 




13CE 

20 

EC 


* 

* 

BRA 


BIN2 


13D0 

8D 

B6 


OCT 

BSR 


INITR 


13D2 

A6 

00 


0CT1 

LDA 

A 

0 r X 


13D4 

80 

30 



SUB 

A 

*$30 


13D6 

2B 

El 



BMI 


HEX4 


13D8 

81 

07 



CMP 

A 

*7 


13DA 

22 

DD 



BHI 


HEX4 


13DC 

8D 

B3 



BSR 


LTUO 


13DE 

8D 

B3 



BSR 


LONE 

MULT X 8 

13E0 

9B 

7A 



ADD 

A 

GTEMP2+1 


13E2 

97 

7A 



STA 

A 

GTEMP2+1 


13E4 

08 




INX 




13E5 

20 

EB 



BRA 


0CT1 


13E7 

8D 

9F 


ASC 

BSR 


INITR 

GO INITIALIZE 

13E9 

A6 

00 



LDA 

A 

OrX 

GET CHAR 

13EB 

97 

7A 



STA 

A 

GTEMP2+1 

SET CHAR 

13ED 

BE 

6B 



LDX 


XTEMP1 

IGNORE REST 

13EF 

39 



* 

RTS 



DONE 





* 

** SHELL 








* DO A 

SHELL SORT 


13F0 

7F 

00 

7D 

SHELL 

CLR 


TEMP 


13F3 

86 

08 



LDA 

A 

#8 


13F5 

36 




PSH 

A 



13F6 

86 

20 



LDA 

A 

#32 


13F8 

36 




PSH 

A 



13F9 

86 

68 



LDA 

A 

#104 


13FB 

36 




PSH 

A 


SET GAP WIDTHS 

13FC 

32 



SHELL1 

PUL 

A 

GET A GAP 



C 


L 




f||: 


TSC 6B00 

ASSEMBLER SYSTEM VI.4 



LOCN 

B1 
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13FD 

97 

AA 



STA 

A 

GAP 

SAVE 

13FF 

DE 

40 



LDX 


LBLBEG 


1401 

DF 

77 


SHELL2 

STX 


QTEMP3 

SAVE PLACE 

1403 

DF 

7B 


SETGAP 

STX 


QTEMP 

SAVE PTR 

1405 

96 

7C 



LDA 

A 

QTEMP+1 


1407 

9B 

AA 



ADD 

A 

GAP 


1409 

97 

7A 



STA 

A 

QTEMP2+1 


140B 

96 

7B 



LDA 

A 

QTEMP 


140D 

89 

00 



ADC 

A 

*0 


140F 

97 

79 



STA 

A 

QTEMP2 

SET BOTTOM POINTER 

1411 

91 

42 



CMP 

A 

LBLEND 


1413 

25 

08 



BCS 


SORT 


1415 

26 

60 



BNE 


PASDON 


1417 

96 

7A 



LDA 

A 

QTEMP2+1 


1419 

91 

43 



CMP 

A 

LBLEND-f 1 


141B 

24 

5A 



BCC 


PASDON 


141D 

C6 

06 


SORT 

LDA 

B 

*6 

SET FOR 6 COMPARES 

141F 

DE 

7B 



LDX 


QTEMP 

GET TOP PTR 

1421 

DF 

69 



STX 


XTEMP 

SAVE 

1423 

DE 

79 



LDX 


QTEMP2 

GET BOTTOM PTR 

1425 

DF 

6D 



STX 


XTEMP2 

SAVE 

1427 

DE 

69 


CHKLOP 

LDX 


XTEMP 

GET PTR 

1429 

A6 

00 



LDA 

A 

OfX 


142B 

08 




INX 



GET CHAR AND ADV. 

142C 

DF 

69 



STX 


XTEMP 


142E 

DE 

6D 



LDX 


XTEMP2 

GET PTR 

1430 

A1 

00 



CMP 

A 

OfX 

CHECK RELATION 

1432 

27 

4D 



BEQ 


SAME 

SAME? 

1434 

23 

30 



BLS 


ORDOK 

IN ORDER? 

1436 

C6 

08 



LDA 

B 

#8 

SET 8 TRANSFERS 

1438 

DE 

7B 



LDX 


QTEMP 

GET TABLE PTR 

143A 

DF 

69 


MOVELP 

STX 


XTEMP 

SAVE 

143C 

37 




PSH 

B 


SAVE COUNT 

14 3D 

A6 

00 



LDA 

A 

OfX 


143F 

DE 

79 



LDX 


QTEMP2 

GET BEST PTR 

1441 

E6 

00 



LDA 

B 

OfX 


1443 

A7 

00 



STA 

A 

OfX 

SWITCH 

1445 

08 




INX 




1446 

DF 

79 



STX 


QTEMP2 

SAVE PTR 

1448 

DE 

69 



LDX 


XTEMP 

GET DEST PTR 

144A 

E7 

00 



STA 

B 

OfX 

SWITCH 

144C 

08 




INX 




144D 

33 




PUL 

B 



144E 

5A 




DEC 

B 



144F 

26 

E9 



BNE 


MOVELP 

LOOP TILL DONE 

1451 

96 

7D 



LDA 

A 

TEMP 

GET FLAG 

1453 

26 

03 



BNE 


SHELLS 


1455 

73 

00 

7D 


COM 


TEMP 

CHANGE FLAG 

1458 

DE 

7B 


SHELLS 

LDX 


QTEMP 

GET PTR 

145A 

9C 

40 



CPX 


LBLBEG 

SEE IF AT TOP 

145C 

27 

08 



BEQ 


ORDOK 

IF SOf GO DOWN 

145E 

C6 

08 



LDA 

B 

#8 


1460 

09 



DECXX 

DEX 



MOVE BACK 

1461 

5A 




DEC 

B 



1462 

26 

FC 



BNE 


DECXX 
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1464 

20 

9B 



BRA 


SETGAP 


1466 

96 

7B 


ORBOK 

LDA 

A 

TEMP 

GET FLAG 

1468 

27 

03 



BEQ 


SHELL6 

IF Of FOWARD 

146A 

7F 

00 

7B 


CLR 


TEMP 

SET FOWARD 

146D 

BE 

77 


SHELl.6 

LDX 


QTEMP3 

GET LIST POINTER 

146F 

C6 

08 



LBA 

B 

#8 

SET FOR NEXT 

1471 

08 



OFFLOP 

INX 




1472 

5A 




DEC 

B 


MOVE PTR 

1473 

26 

FC 



BNE 


OFFLOP 


1475 

20 

8A 



BRA 


SHELL2 


1477 

96 

AA 


PASDON 

LDA 

A 

GAP 

GET DISTANCE 

1479 

81 

08 



CMP 

A 

*8 


147B 

27 

03 



BEQ 


SRTBON 

IF 8 f DONE 

147D 

7E 

13 

FC 


JMP 


SHELL1 


1480 

39 



SRTBON 

RTS 




1481 

08 



SAME 

INX 




1482 

DF 

6B 



STX 


XTEMP2 

SAVE PTR 

1484 

5A 




DEC 

B 


CHECKED ALL 6? 

1485 

26 

AO 



BNE 


CHKLOP 


1487 

20 

BB 


* 

BRA 


ORBOK 






* 

** OBJCOB 








* PRODUCE MIKBUG RECORB 

FORMAT 

1489 

96 

62 


OBJCOB 

LDA 

A 

OBJINT 

SEE IF FIRST CALL 

148B 

27 

OC 



BEQ 


0BJC01 

IF SOf SKIP 

148D 

CE 

04 

CO 


LDX 


♦TAPEON 


1490 

BD 

04 

B2 


JSR 


CONTRL 

TURN TAPE ON 

1493 

BD 

04 

C8 


JSR 


DELAY 

DELAY FOR STARTUP 

1496 

7F 

00 

62 


CLR 


OBJINT 

RESET FLAG 

1499 

BE 

6B 


0BJC01 

LDX 


XTEMP2 

GET PC (LAST TIME'S) 

149B 

9C 

9E 



CPX 


LASTPC 


149D 

07 




TPA 




149E 

BE 

4B 



LDX 


PC 


14A0 

BF 

9E 



STX 


LASTPC 

SET NEW LAST PC 

14A2 

06 




TAP 



RESTORE CCR 

14A3 

27 

03 



BEQ 


0BJC04 

SEE IF NEW ORG 

14A5 

BB 

15 

18 


JSR 


PRTREC 

IF SOf PRINT LAST PART 

14A8 

96 

90 


0BJC04 

LDA 

A 

OPCNT 

GET BYTE COUNTER 

14AA 

B6 

A7 


0BJC03 

LDA 

B 

BUFCNT 

GET BUFFER COUNT 

14AC 

26 

04 



BNE 


0BJC05 

IF NOT EMPTY r SKIP 

14AE 

BE 

6B 



LDX 


XTEMP2 

GET PC 

14B0 

BF 

AO 



STX 


OBJABR 

SET RECORD ADDRESS 

14B2 

BE 

89 


0BJC05 

LDX 


OBJPTR 

GET BEST PTR 

14B4 

B6 

7E 



LDA 

B 

OPCODE 


I486 

E7 

00 



STA 

B 

OfX 


14B8 

08 




INX 




14B9 

7C 

00 

A7 


INC 


BUFCNT 


14BC 

4A 




DEC 

A 



14BD 

27 

13 



BEQ 


0BJC06 


14BF 

B6 

7F 



LDA 

B 

0P1 


14C1 

E7 

00 



STA 

B 

OfX 


14C3 

08 




INX 




14C4 

7C 

00 

A7 


INC 


BUFCNT 


14C7 

4A 




DEC 

A 




56 
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B2 
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14C8 

27 

08 



BEG 


0BJC06 


14CA 

D6 

80 



LDA 

B 

0P2 


14CC 

E7 

00 



STA 

B 

OfX 


14CE 

08 




INX 




14CF 

7C 

00 

A7 


INC 


BUFCNT 

PUT DATA* SET COUNT 

14D2 

8D 

20 


0BJC06 

BSR 


CHKGEN 

GO CHECK IF BUF. FULL 

14D4 

96 

5A 



LDA 

A 

DATFLG 

CHECK FCCfFCBfFDB 

14D6 

27 

3F 



BEG 


OBJDON 

IF NOT» DONE 

14D8 

CE 

02 

00 


LDX 


♦BYTSTK 


14DB 

DF 

71 



STX 


XTEMP4 

SET DATA BUFFER POINTER 

14DD 

BE 

71 


0BJC07 

LDX 


XTEMP4 

GET DATA POINTER 

14DF 

9C 

87 



CPX 


BYTPTR 

SEE IF EMPTY 

14E1 

27 

34 



BEG 


OBJDON 

IF SOf DONE 

14E3 

A6 

00 



LDA 

A 

OfX 

GET DATA 

14E5 

08 




INX 


• 


14E6 

DF 

71 



STX 


XTEMP4 

FIX PTR 

14E8 

DE 

89 



LDX 


OBJPTR 

GET PTR 

14EA 

A7 

00 



STA 

A 

OfX 

PUT DATA 

14EC 

08 




INX 



ADVANCE 

14ED 

7C 

00 

A7 


INC 


BUFCNT 

FIX COUNT 

14F0 

8D 

02 



BSR 


CHKGEN 

CHECK GENERATE TIME 

14F2 

20 

E9 



BRA 


0BJC07 

LOOP TILL EMPTY 

14F4 

DF 

89 


CHKGEN 

STX 


OBJPTR 

SAVE POINTER 

14F6 

96 

A7 



LDA 

A 

BUFCNT 

GET COUNT 

14F8 

81 

OF 



CMP 

A 

#15 


14FA 

22 

01 



BHI 


GENOBJ 

IF >=16 TIME TO PUNCH 

14FC 

39 




RTS 




14FD 

36 



GENOBJ 

PSH 

A 


SAVE COUNT 

14FE 

86 

10 



LDA 

A 

#16 

SET BYTE COUNT 

1500 

BD 

15 

1C 


JSR 


RECORD 

GO PUNCH RECORD 

1503 

32 




PUL 

A 


GET COUNT 

1504 

CE 

00 

B4 


LDX 


#OBJBUF 


1507 

80 

10 



SUB 

A 

#16 

CALCULATE DATA LEFT 

1509 

97 

A7 



STA 

A 

BUFCNT 

UPDATE COUNT 

150B 

27 

08 


SHIFTL 

BEG 


SAVEPL 

IF Of HAVE PLACE 

150D 

E6 

10 


MOVE 

LDA 

B 

16 f X 

GET DATA 

150F 

E7 

00 



STA 

B 

OfX 


1511 

08 




INX 



MOVE PTR 

1512 

4A 




DEC 

A 


KICK COUNT 

1513 

26 

F8 



BNE 


MOVE 

MOVE ALL DATA 

1515 

DF 

89 


SAVEPL 

STX 


OBJPTR 

SAVE BUFFER PTR 

1517 

39 



OBJDON 

RTS 



DONE 

1518 

96 

A7 


PRTREC 

LDA 

A 

BUFCNT 

GET COUNT 

151A 

27 

FB 



BEG 


OBJDON 

IF Or NOTHING TO PUNCH 

151C 

36 



RECORD 

PSH 

A 


SAVE COUNT 

151D 

7F 

00 

A7 


CLR 


BUFCNT 

SET COUNT 0 

1520 

CE 

00 

B4 


LDX 


♦OBJBUF 


1523 

DF 

89 



STX 


OBJPTR 

RESET POINTER 

1525 

8D 

3D 



BSR 


HEADER 

PUNCH HEADER 

1527 

32 




PUL 

A 



1528 

36 




PSH 

A 


GET COUNT 

1529 

8B 

03 



ADD 

A 

#3 

SET BYTE COUNT 

152B 

8D 

23 



BSR 


TAPBYT 

PUNCH BYTE 

152D 

96 

AO 



LDA 

A 

OBJADR 

GET MS ADDRESS 

152F 

BD 

15 

50 


JSR 


TAPBYT 




TSC 6800 

ASSEMBLER SYSTEM VI 

♦ 4 


* 

LOCN 

B1 

B2 B3 





1532 

96 

A1 

LDA 

A 

OBJADR+1 


1534 

8D 

1A 

BSR 


TAPBYT 


1536 

32 


PUL 

A 



1537 

36 


PSH 

A 


GET COUNT AGAIN 

1538 

9B 

A1 

ADD 

A 

OBJADR+1 


153A 

97 

A1 

STA 

A 

OBJADR+1 


153C 

96 

AO 

LDA 

A 

OBJADR 


153E 

89 

00 

ADC 

A 

#0 


1540 

97 

AO 

STA 

A 

OBJADR 

SET NEW ADDRESS 

1542 

33 


PUL 

B 


GET COUNT 

1543 

BE 

89 

LDX 


OBJPTR 


1545 

A6 

00 OBJLP 

LDA 

A 

OrX 

GET DATA 

1547 

8D 

07 

BSR 


TAPBYT 

PUNCH IT 

1549 

08 


INX 




154 A 

5A 


DEC 

B 


CHECK DONE 

154B 

26 

F8 

BNE 


OBJLP 


154D 

96 

61 

LDA 

A 

CKSUM 

GET CHECKSUM 

154F 

43 


COM 

A 


CORRECT 


* 

** TAPBYT 






* PUNCH 

A BYTE 

AND CALC 

CHECKSUM 

1550 

36 



TAPBYT 

PSH 

A 


SAVE BYTE 

1551 

9B 

61 



ADD 

A 

CKSUM 

UPDATE CHECKSUM 

1553 

97 

61 



STA 

A 

CKSUM 


1555 

32 




PUL 

A 



1556 

36 




PSH 

A 


GET CHAR 

1557 

BD 

OC 

DB 


JSR 


HEXL 


155A 

BD 

03 

23 


JSR 


TAPOUT 


155D 

32 




PUL 

A 



155E 

BD 

OC 

DF 


JSR 


HEXR 


1561 

7E 

03 

23 

* 

JMP 


TAPOUT 


1564 

CE 

15 

6F 

HEADER 

LDX 


♦LNHDX 


1567 

C6 

08 



LDA 

B 

♦8 


1569 

7F 

00 

61 


CLR 


CKSUM 

SET CHECKSUM 

156C 

7E 

04 

B6 


JMP 


PCTRL 

GO PUNCH 

156F 

OD 



LNHDX 

FCB 


♦D t $A f 0 1 0 

Ml 

o 

o 

1570 

OA 








1571 

00 








1572 

00 








1573 

00 








1574 

00 








1575 

53 




FCC 


'SI 7 


1576 

31 









PAGE 


* 

* 

* 

* 

** MEMCOD 

* INSTALL OBJECT CODE IN MEMORY 


1577 DE 6D 

MEMCOD LDX 

XTEMP2 

GET PC 

1579 9C 9C 

CF‘X 

LSTPCM 

CHECK CONTIGUOUS CODE 

157B 07 

TPA 



157C DE 4B 

LDX 

PC 


157E DF 9C 

STX 

LSTPCM 



58 
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LOCN 

B1 

B2 

B3 






1580 

06 




TAP 



RESTORE STATUS 

1581 

27 

20 



BEQ 


MEM2 

IF CONT♦r SKIP 

1583 

BE 

8B 



LBX 


MEMPTR 

GET POINTER 

1585 

96 

6B 



LB A 

A 

XTEMP2 

GET PC 

1587 

A7 

02 



ST A 

A 

2 r X 


1589 

96 

6E 



LB A 

A 

XTEMP2+1 


158B 

A7 

03 



STA 

A 

3 r X 

PUT IN MEMORY 

158D 

9C 

49 



CPX 


MEMOBJ 

CHECK BEGINNING 

158F 

27 

03 



BEQ 


MEM1 


1591 

BB 

15 

F4 


JSR 


FIXCNT 

GO FIX BYTE COUNT 

1594 

BE 

8B 


MEM1 

LBX 


MEMPTR 

GET POINTER 

1596 

BF 

A2 



STX 


LASTM 

SAVE PLACE 

1598 

08 




INX 




1599 

08 




INX 




159 A 

08 




INX 




159B 

08 




INX 

m 



159C 

4F 




CLR 

A 



159D 

97 

9A 



STA 

A 

MCOUNT 


159F 

97 

9B 



STA 

A 

MCOUNT+1 

SET BYTE COUNT 

15A1 

BF 

8B 



STX 


MEMPTR 

SAVE PTR 

15A3 

BE 

8B 


MEM2 

LBX 


MEMPTR 

GET POINTER 

15A5 

B6 

90 



LBA 

B 

OF’CNT 

GET COUNT 

15A7 

96 

7E 



LBA 

A 

OPCOBE 


15A9 

A7 

00 



STA 

A 

OrX 


15AB 

08 




INX 




15AC 

BB 

15 

E7 


JSR 


INCCNT 


15AF 

5A 




BEC 

B 



15B0 

27 

13 



BEQ 


MEM 3 


15B2 

96 

7F 



LBA 

A 

OF’l 


15B4 

A7 

00 



STA 

A 

OrX 


15B6 

08 




INX 




15B7 

BB 

15 

E7 


JSR 


INCCNT 


15BA 

5A 




BEC 

B 



15BB 

27 

08 



BEQ 


MEM3 


15BD 

96 

80 



LBA 

A 

0P2 


15BF 

A7 

00 



STA 

A 

OrX 


15C1 

08 




INX 




15C2 

BB 

15 

E7 


JSR 


INCCNT 


15C5 

BF 

8B 


MEM3 

STX 


MEMPTR 

SAVE PLACE 

15C7 

96 

5A 



LBA 

A 

BATFLG 

CHECK FCCrFCBrFBB 

15C9 

26 

01 



BNE 


EXTBAT 

IF SOr GO SERVICE 

15CB 

39 



MEM4 

RTS 



BONE 

15CC 

CE 

02 

00 

EXTBAT 

LBX 


♦BYTSTK 


15CF 

BF 

71 



STX 


XTEMF'4 

SET BUFFER POINTER 

15D1 

BE 

71 


MEM5 

LBX 


XTEMP4 

GET POINTER 

15D3 

9C 

87 



CPX 


BYTPTR 

CHECK EMPTY 

15D5 

27 

F4 



BEQ 


MEM4 

IF SOr BONE 

15D7 

A6 

00 



LBA 

A 

OrX 


15D9 

08 




INX 




15DA 

BF 

71 



STX 


XTEMP4 

ABVANCE PTR ANB SAVE 

15DC 

BE 

8B 



LBX 


MEMPTR 

GET BEST PTR 

15BE 

A7 

00 



STA 

A 

OrX 

PUT BYTE 

15E0 

08 




INX 




15E1 

BF 

8B 



STX 


MEMPTR 

SAVE PLACE 

15E3 

8B 

02 



BSR 


INCCNT 

FIX THE COUNT 
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LOCN 

B1 

B2 B3 






15E5 

20 

EA 


BRA 


MEM5 

DO TILL DONE 

15E7 

96 

9B 

INCCNT 

LDA 

A 

MCOUNT+1 


15E9 

8B 

01 


ADD 

A 

*1 


15EB 

97 

9B 


STA 

A 

MCOUNT+1 


15ED 

96 

9A 


LDA 

A 

MCOUNT 


15EF 

89 

00 


ADC 

A 

*0 


15F1 

97 

9A 


STA 

A 

MCOUNT 

16 BIT INCREMENT 

15F3 

39 



RTS 




15F4 

DE 

A2 

FIXCNT 

LDX 


LASTM 

GET LAST START 

15F6 

96 

9A 


LDA 

A 

MCOUNT 


15F8 

A7 

00 


STA 

A 

0 r X 


15FA 

96 

9B 


LDA 

A 

MCOUNT+1 

. 

15FC 

A7 

01 


STA 

A 

1»X 

SET BYTE COUNT 

15FE 

39 



RTS 



DONE 


* 

* 

* 

* 

END 

SYMBOL TABLE: 


ADDF'CO 0C88 
ADVF’TR 03A6 
ASME4 082B 
BIN2 13BC 
CERR 047A 
CHKLBL 08DE 
CHK2ER 0433 
CLRLBL 0351 
CORDON 0CA8 
DECM2 1363 
DELDON 04D5 
EJSTR 11D1 
ERRHD 054B 
EVAL1A 11E0 
EXTDAT 15CC 
FERROR 091A 
FINDSP 0C4F 
FIN4 052F 
FIXMOD 0D5C 
FIXXX2 0E01 
FND222 0C44 
GAPX 0531 
GETER2 046B 
HASHCT 00A4 
HEXR OCDF 
IMMEDO 0E47 
IMMED5 0E76 
INDEX 0DA3 
INDEX4 ODEO 
LABEL 004F 
LBLBEG 0040 
LINES 0036 
L0AD1 1240 
LSTREC 04F1 


ADDPC1 0C86 
ASC 13E7 
ASME5 0832 
BUFCNT 00A7 
CHKCOM OBAA 
CHKLOP 1427 
CHK3 0464 
CNXT 0496 
COPLBL 0C8F 
DECM3 1387 
DIRECT 0E04 
ENDFLG 0058 
ERRORS 00A9 
EVAL1B 12A1 
EXTEND 0D3C 
FILTIT 1114 
FINDS2 OC50 
FIN5 0516 
FIXM3 0D67 
FNDEND 102D 
FI 1211 
GENER OOBO 
GETSYM 057A 
HEADER 1564 
HEX2 139C 
IMMED1 0E4E 
IMMED6 0E73 
INDEXO 0DF3 
INDEX5 ODFA 
LABERR OBBC 
LBLEND 0042 
LINPTR 008D 
LONE 1393 
LSTSYM 0575 


ADDPC2 

0C7E 

ASMERR 

07E5 

BCONV 

12C9 

BYTCNT 

00A6 

CHKERR 

0437 

CHKTAP 

04ED 

CKDONE 

0904 

CONDON 

04BF 

CRLF 

07CF 

DECX 

04CF 

EJCHR 

OOOA 

EQU1 

10B9 

ERRPTR 

0085 

EVAL2 

12A9 

EXTENO 

0D43 

FIN 

04D6 

FINDS4 

11FE 

FIN6 

0537 

FIXM4 

0D62 

FNDLBL 

0905 

F2 

1203 

GENOBJ 

14FD 

GOTLBL 

091D 

HERROR 

08B8 

HEX3 

13AA 

IMMED2 

0E67 

INCCNT 

15E7 

INDEX1 

ODBA 

INDEX9 

0DF9 

LABOUT 

0584 

LBLMSK 

0060 

LIST 

OOAE 

LOOP 

084F 

LTEMP 

0075 


ADDPC3 

0C72 

ASME2 

0821 

BIN 

13BA 

BYTPTR 

0087 

CHKFRE 

08A4 

CHK1 

0939 

CKSUM 

0061 

CONT 

05A5 

DATFLG 

005A 

DECXX 

1460 

EJECT 

1131 

ERRCNT 

00A5 

ERRSTK 

0100 

EVAL3 

12AD 

EXTEN1 

0D49 

FINDCR 

0C26 

FIN2 

0505 

FIX 

0CC1 

FIXM5 

0D6D 

FNDOPT 

091F 

F3 

1298 

GETCHR 

OCAC 

GOTMSG 

0664 

HEX 

139A 

HEX4 

13B9 

IMMED3 

0E6E 

INDEC 

1348 

INDEX2 

ODCB 

INDEOO 

0DE7 

LASTM 

00A2 

LINBYT 

0048 

LNHDX 

156F 

LSTERR 

0084 

LTWO 

1391 


ADD16 OCFA 
ASME3 0824 
BINGO 0962 
BYTSTK 0200 
CHKGEN 14F4 
CHK2 045D 
CLRLAB 0C65 
CONTRL 04B2 
DECM 135B 
DELAY 04C8 
EJFLG 005C 
ERRFLG 0056 
EVAL 1IDS 
EVAL4 12BF 
FCCFLG 005B 
FINDSC 11E2 
FIN3 051E 
FIXCNT 15F4 
FIXXX 0E84 
FND10 0908 
GAP OOAA 
GETERR 044D 
HASH 0867 
HEXL OCDB 
IMMED 0E3F 
IMMED4 0E69 
INDEC2 1350 
INDEX3 0DD6 
INITR 1388 
LASTPC 009E 
LINCNT 00A8 
LOAD 1216 
LSTPCM 009C 
LI 1275 
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L2 

1278 

MAIN 

0300 

MEMCOD 

1577 

MEM1 

1594 

MESGO 

0687 

MESG3 

06C6 

MESG8 

073C 

MON 

031B 

MSGTBL 

0669 

NOEJT 

119B 

NOLAB 

03A4 

NXTBL3 

0C64 

0BJC03 

14AA 

OBJDON 

1517 

OCT 

13D0 

OPCODE 

007E 

0PMUL2 

12F1 

OPNTBL 

12C1 

OPTEND 

0B6F 

OP 2 

0080 

OUTHR 

11 A3 

0UT3S 

0CC5 

PARSE 

0B75 

PARSE4 

0C39 

PARS1A 

0BC3 

PARS2E 

0C24 

PASONE 

03B1 

PASS13 

03D8 

PASS2X 

0401 

PCRLF 

07BA 

PEVAL 

0BF2 

PPAG5 

117F 

PRTERR 

0651 

PRTIND 

OSCE 

PRTMAR 

1146 

PRTS1 

0644 

PRT3 

063C 

PUTLBL 

08A2 

P2ERR3 

0083 

QTEMP 

007B 

REHASH 

087F 

SETBIT 

039C 

SHELL1 

13FC 

SHORT 

0422 

SRCEND 

0046 

SYMGEN 

055E 

TAPEOF 

04C4 

TFIXMD 

0D59 

TYPE10 

0F7E 

TYPE15 

10B0 

TYPE2A 

0D28 

TYPE4 

0D54 

TYPE7C 

0D9C 

TYPE8C 

0ED6 

TYPEBH 

OFOD 

TYPE9 

0F42 

TYP10A 

0F8A 

TYP11C 

0FE9 

TYP13A 

10A1 


L3 

1283 

MARDON 

114C 

MEMGEN 

0414 

MEM2 

15A3 

MESG1 

069D 

MESG4 

06DE 

MESG9 

0753 

MOVE 

150D 

NAM1 

10F9 

NOERHD 

0549 

NOMATL. 

0942 

OBJADR 

OOAO 

0BJC04 

14A8 

OBJGEN 

040D 

OCT 1 

13D2 

OPDIV 

130F 

0PMUL3 

12FF 

OPSERR 

07D6 

OPTERR 

094D 

ORDOK 

1466 

OUTHXS 

OCCC 

PAGENO 

OOAC 

F'ARSEO 

0B7F 

PARSES 

0C38 

PARS1B 

0BD1 

PARS2F 

OBFF 

PASS 

008F 

PASS2 

03E0 

PASTHR 

05BB 

PCRLF1 

07C8 

PLOOP 

07A7 

PPAG6 

116F 

F'RTFLG 

005E 

PRTINE 

05D3 

PRTMES 

04EA 

PRTS2 

0650 

PRT4 

063F 

P1INIT 

0326 

P2INIT 

036F 

QTEMP2 

0079 

RNDM 

0091 

SETGAP 

1403 

SHELL2 

1401 

SORT 

14 ID 

SRCPTR 

004D 

SYMHD 

0538 

TAPEON 

04C0 

TITLE 

00C6 

TYPE11 

OFBD 

TYPE16 

10DD 

TYPE2B 

0D2C 

TYPES 

0D51 

TYPE7D 

0D96 

TYPE8D 

0ED4 

TYPE8I 

0F2C 

TYPE9A 

0F62 

TYP10B 

0F9E 

TYP12A 

1005 

TYP15A 

10B4 


L4 

1287 

MATCH1 

0952 

MEMOBJ 

0049 

MEM3 

15C5 

MESG10 

0778 

MESG5 

06F9 

MIX2 

0882 

MOVELP 

143A 

NAM2 

1110 

NOERR 

0475 

NOPRT 

05AA 

OBJBUF 

00B4 

0BJC05 

14B2 

OBJINT 

0062 

OFFLOP 

1471 

0PDIV1 

1325 

OPN 

0063 

OPSUB 

12DD 

OPTLST 

1041 

OUTCH 

0320 

OUTS 

031E 

PAGER 

00B1 

PARSE1 

OBAE 

PARSE6 

0C36 

PARS2A 

0C04 

PARS2H 

0C3C 

PASS1 

03B9 

PASS2A 

03E8 

PASTUO 

03D9 

PCRLF2 

07CC 

PPAG2 

1174 

ppp 

11A9 

PRTINA 

05CF 

PRTINF 

05C1 

PRTPC 

0611 

PRT1 

0636 

PSTR 

07B2 

P2D0N 

04B1 

P2IN3 

03B0 

QTEMP3 

0077 

SAME 

1481 

SETTL 

035D 

SHELLS 

1458 

SPCL 

1351 

SRTDON 

1480 

SYMPRT 

05B8 

TAPOUT 

0323 

TOOMAN 

0836 

TYPE12 

OFED 

TYPE17 

10E9 

TYPE2D 

0D34 

TYPE6 

0D7B 

TYPES 

0E87 

TYPE8E 

0EC4 

TYPE8J 

0F38 

TYPE9B 

0F68 

TYP10C 

0F99 

TYP12B 

1019 

TYP15C 

10D7 


L5 128B 

MATFLG 0057 
MEMORY 00B3 
MEM4 15CB 
MESG11 078E 
MESG6 0716 
MIX3 089F 
MOVPTR 05AD 
NAM3 11IE 
N0ERR2 049D 
NXTBLK 0C5B 
OBJCOD 1489 
0BJC06 14D2 
OBJLP 1545 
OPADD 12D3 
0PDIV3 1337 
OPNEND 1083 
OPTABL 096B 
OPTPTR 0094 
OUTHEX OCDO 
OUTSZ 0CC9 
PAGF r LG 005F 
PARSE2 0BD4 
PARSE7 0C33 
PARS2B 0C10 
PARS2J 0C1D 
PASSU 03C7 
PASS2B 03FA 
PC 004B 

PCTRL 04B6 
PPAG3 1196 
PRFLG 0055 
PRTINB 05D5 
PRTING 05F8 
PRTREC 1518 
PRT2 0639 
PTNXT 0660 
P2ERR1 0081 
P3FLG 005D 
RANDOM 084B 
SAVEPL 1515 
SETO 0512 
SHELL6 146D 
SPSAVE 0067 
SUB16 0CE8 
TAPBYT 1550 
TEMP 007D 
TYPERR OFEA 
TYPE13 1089 
TYPE18 11IF 
TYPE3 0D35 
TYPE7 0D88 
TYPE8A 0EB1 
TYPE8F 0EF1 
TYPESK 0F34 
TYPE9C 0F4E 
TYP11A 0FD9 
TYP12C 1009 
TYP3R 0D4C 


L6 

1290 

MCOUNT 

009A 

MEMPTR 

008B 

MEM5 

15D1 

MESG2 

06AE 

MESG7 

072F 

MODFY 

OOAB 

MSGHD 

0681 

NDIR 

0E38 

N0ERR4 

04A4 

NXTBL2 

0C5C 

0BJC01 

1499 

0BJC07 

14DD 

OBJPTR 

0089 

OPCNT 

0090 

OPMUL 

12E7 

OPNPTR 

0096 

OPTDON 

1040 

0P1 

007F 

OUTHL 

119D 

0UT2S 

0CC7 

PARFF2 

0C4B 

PARSE3 

0C2D 

PARSOA 

0B77 

PARS2D 

0C11 

PASDON 

1477 

PASS12 

03CE 

PASS2C 

041B 

PCFLAG 

0059 

PDATA 

07 A B 

PPAG4 

1183 

PRTDAT 

05FF 

PRTINC 

05D7 

PRTIT 

0CD8 

PRTSRC 

0642 

PRT2ER 

048F 

PUTIT 

08BB 

P2ERR2 

0082 

P3INIT 

036F 

RECORD 

151C 

SAVPTR 

0098 

SHELL 

13F0 

SHIFTL 

150B 

SRCBEG 

0044 

SYMBOL 

OOAF 

TAPE 

00B2 

TERM 

0064 

TYPE1 

0D03 

TYPE14 

10A2 

TYPE2 

0D06 

TYPE3A 

0D39 

TYPE7A 

0D8D 

TYPE8B 

OEBE 

TYPE8G 

0F06 

TYPE8L 

0F3A 

TYPE9D 

0F5D 

TYP11B 

0FE3 

TYP12D 

0FF8 

XLOOP 

04CC 
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XSAOE 0065 XTEMP 0069 
XTEMP4 0071 XTEMP5 0073 


XTEMP1 006B 


XTEMP2 006D 


XTEMP3 006F 


OBJECT code: 


SI 

13 

0300 

8E 

AO 

7F 

BD 

SI 

13 

0310 

03 

26 

BD 

03 

SI 

13 

0320 

7E 

El 

D1 

7E 

SI 

13 

0330 

40 

97 

A8 

4F 

SI 

13 

0340 

97 

B3 

97 

58 

SI 

13 

0350 

40 

6F 

00 

08 

SI 

13 

0360 

8C 

00 

E6 

26 

SI 

13 

0370 

FF 

97 

62 

97 

SI 

13 

0380 

FF 

FF 

DF 

9C 

SI 

13 

0390 

00 

B4 

DF 

89 

SI 

13 

03A0 

8A 

80 

A7 

00 

SI 

13 

03B0 

39 

9F 

67 

DE 

SI 

13 

03C0 

96 

4F 

27 

03 

SI 

13 

03D0 

96 

58 

26 

04 

SI 

13 

03E0 

DF 

4D 

DE 

4B 

SI 

13 

03F0 

09 

BD 

09 

05 

SI 

13 

0400 

IF 

96 

90 

27 

SI 

13 

0410 

96 

5D 

27 

07 

SI 

13 

0420 

04 

A4 

96 

5E 

SI 

13 

0430 

32 

97 

90 

86 

SI 

13 

0440 

4D 

26 

32 

96 

SI 

13 

0450 

00 

A5 

E6 

02 

SI 

13 

0460 

03 

7F 

00 

82 

SI 

13 

0470 

BD 

06 

51 

20 

SI 

13 

0480 

15 

96 

56 

27 

SI 

13 

0490 

77 

E6 

00 

BD 

SI 

13 

04A0 

03 

BD 

11 

31 

SI 

13 

04B0 

EO 

39 

C6 

04 

SI 

13 

04C0 

00 

00 

00 

00 

SI 

13 

04D0 

26 

FD 

5A 

26 

SI 

13 

04E0 

CE 

05 

49 

96 

SI 

13 

04F0 

14 

BD 

15 

18 

SI 

13 

0500 

CE 

04 

C4 

8D 

SI 

13 

0510 

DE 

8B 

6F 

00 

SI 

13 

0520 

BA 

96 

B1 

27 

SI 

13 

0530 

04 

BD 

07 

BA 

SI 

13 

0540 

4C 

20 

54 

41 

SI 

13 

0550 

52 

28 

53 

29 

SI 

13 

0560 

27 

BC 

C6 

04 

SI 

13 

0570 

DE 

40 

09 

DF 

SI 

13 

0580 

29 

37 

C6 

06 

SI 

13 

0590 

A6 

00 

BD 

OC 

SI 

13 

OSAO 

33 

9C 

42 

27 

SI 

13 

05B0 

FC 

33 

DF 

69 

SI 

13 

05C0 

D9 

8D 

3C 

81* 

SI 

13 

05D0 

BO 

27 

FB 

96 

SI 

13 

05E0 

90 

DE 

71 

9C 

SI 

13 

05F0 

7C 

00 

90 

A6 

SI 

13 

0600 

07 

BA 

BD 
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00 

81 

SI 

13 

146C 

7D 

DE 

77 

C6 

08 

08 

5A 

26 

FC 

20 

8A 

96 

AA 

81 

08 

27 

AE 

SI 

13 

147C 

03 

7E 

13 

FC 

39 

08 

DF 

6D 

5A 

26 

AO 

20 

DD 

96 

62 

27 

03 

SI 

13 

148C 

OC 

CE 

04 

CO 

BD 

04 

B2 

BD 

04 

C8 

7F 

00 

62 

DE 

6D 

9C 

EA 

SI 

13 

149C 

9E 

07 

DE 

4B 

DF 

9E 

06 

27 

03 

BD 

15 

18 

96 

90 

D6 

A7 

34 

SI 

13 

14AC 

26 

04 

DE 

6D 

DF 

AO 

DE 

89 

D6 

7E 

E7 

00 

08 

7C 

00 

A7 

6B 

SI 

13 

14BC 

4A 

27 

13 

D6 

7F 

E7 

00 

08 

7C 

00 

A7 

4A 

27 

08 

D6 

80 

62 

SI 

13 

14CC 

E7 

00 

08 

7C 

00 

A7 

8D 

20 

96 

5A 

27 

3F 

CE 

02 

00 

DF 

48 

SI 

13 

14DC 

71 

DE 

71 

9C 

87 

27 

34 

A6 

00 

08 

DF 

71 

DE 

89 

A7 

00 

B2 

SI 

13 

14EC 

08 

7C 

00 

A7 

8D 

02 

20 

E9 

DF 

89 

96 

A7 

81 

OF 

22 

01 

D1 




SI 

13 

14FC 

39 

36 

86 

10 

BD 

15 

SI 

13 

150C 

08 

E6 

10 

E7 

00 

08 

SI 

13 

151C 

36 

7F 

00 

A7 

CE 

00 

SI 

13 

152C 

23 

96 

AO 

BD 

15 

50 

SI 

13 

153C 

96 

AO 

89 

00 

97 

AO 

SI 

13 

154C 

F8 

96 

61 

43 

36 

9B 

SI 

13 

155C 

23 

32 

BD 

OC 

DF 

7E 

SI 

13 

156C 

7E 

04 

B6 

OD 

OA 

00 

SI 

13 

157C 

BE 

4B 

DF 

9C 

06 

27 

SI 

13 

158C 

03 

9C 

49 

27 

03 

BD 

SI 

13 

159C 

4F 

97 

9A 

97 

9B 

DF 

SI 

13 

15AC 

BD 

15 

E7 

5A 

27 

13 

SI 

13 

15BC 

08 

96 

80 

A7 

00 

08 

SI 

13 

15CC 

CE 

02 

00 

DF 

71 

DE 

SI 

13 

15DC 

DE 

8B 

A7 

00 

08 

DF 

SI 

13 

15EC 

9B 

96 

9A 

89 

00 

97 

SI 

06 

15FC 

A7 

01 

39 

07 



S9 










32 

CE 

00 

B4 

80 

10 

97 

A7 

27 

40 

26 

F8 

DF 

89 

39 

96 

A7 

27 

FB 

76 

DF 

89 

8D 

3D 

32 

36 

8B 

03 

8D 

28 

A1 

8D 

1A 

32 

36 

9B 

A1 

97 

A1 

76 

DE 

89 

A6 

00 

8D 

07 

08 

5A 

26 

49 

97 

61 

32 

36 

BD 

OC 

DB 

BD 

03 

63 

23 

CE 

15 

6F 

C6 

08 

7F 

00 

61 

DA 

00 

00 

53 

31 

DE 

6D 

9C 

9C 

07 

OE 

DE 

8B 

96 

6D 

A7 

02 

96 

6E 

A7 

AA 

F4 

DE 

8B 

DF 

A2 

08 

08 

08 

08 

69 

DE 

8B 

D6 

90 

96 

7E 

A7 

00 

08 

8D 

7F 

A7 

00 

08 

BD 

15 

E7 

5A 

27 

EO 

15 

E7 

DF 

8B 

96 

5A 

26 

01 

39 

DB 

9C 

87 

27 

F4 

A6 

00 

08 

DF 

71 

60 

8D 

02 

20 

EA 

96 

9B 

8B 

01 

97 

8C 

39 

DE 

A2 

96 

9A 

A7 

00 

96 

9B 

A5 


1C 

4A 

B4 

96 

33 

61 

03 

00 

20 

15 

8B 

96 

BD 

71 

QB 

9A 
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LAS 


* TSC EDITOR-ASSEMBLER CORESIDENT LINK 


* COPVRIGHT <C> 1977 BV 

* TECHNICAL SYSTEMS CONSULTANTS, INC. 

* P. 0. BOX 2574; W. LAFAYETTE, IN 47986 

* <317> 742-7589 


♦ 


* THE PURPOSE OF THIS PROGRAM IS TO SETUP THE NECESSARY 

* POINTERS IN THE TSC ASSEMBLER AND TO SAVE CERTAIN 

* POINTERS OF THE TSC EDITOR TO ALLOW THEM TO RUN CO- 

* RESIDENT. WHEN IN THE EDITOR AND READY TO ASSEMBLE 

* VOUR FILE, TYPE 'LAS' FOR 'LINK ASSEMBLER'. YOU WILL 

* BE ASKED 'LISTING OR TAPE?'. AN 'L' WILL GIVE YOU A 

* LISTING WHILE A 'T' WILL PRODUCE A MIKBUG FORMAT TAPE. 

* WHEN THE ASSEMBLY IS COMPLETE, CONTROL WILL RETURN TO 

* THE EDITOR. USING LAS DELETES THE LOG COMMAND FROM THE 

* EDITOR. YOU MAY STILL USE STOP TO EXIT. THIS LINK 

* PROGRRM ASSUMES THE 'MEM' OPTION OF THE ASSEMBLER WILL 

* NOT BE USED. IF YOU DO WISH TO USE IT, EXIT THE PROGRAM 

* WHEN ASKED 'LISTING OR TRPE?' AND SET UP THE MEM OPTION 

* POINTER. THEN RESUME EXECUTION AT $150F IN THE LINK 

* <0R $2A0F AFTER RELOCATION). THIS PROGRAM IS SETUP FOR 

* A 16K SYSTEM. IF YOU HAVE A LARGER SYSTEM, CHANGE 

* MEMEND IN THE EDITOR <$0212 BEFORE RELOCATION; $1712 

* AFTER) AND SETUP AN ADEQUATE SYMBOL TABLE BV CHANGING 
+ ’ THE TABLE BEGIN POINTER AT $14BD <0R $29BD AFTER RELO- 

* CATION) AND THE TABLE END POINTER AT $14BF COR $29BF 
AFTER RELOCATION). BE SURE THE NUMBER OF BYTES IN THE 

* TABLE IS A MULTIPLE OF 8. 


* 


* CHANGES TO EDITOR 



8812 


ORG $0212 
FDB $3AFF 


SET MEMORY END 


028E 4C 
028F 41 53 
0891 00' 
0898 14 D3 



PUT LAS IN COMMAND TABLlt 


FCB 0 

FDB LAS 


0358 

0358 CE 15 59 


ORG $0358 

LDX 4BEGPT2 SETUP NEW BEGIN PTR 


* EXTERNAL EQUATES 


1491 

0326 

03B1 

036F 

03D9 

036F 


P1INIT EQU $0326 
PASONE EQU $03B1 
P2INIT EQU $036F 
PASTWO EQU $03D9 
P3INIT EQU $036F 


ORG $1491 
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U 


05BB 

PRSTHR 

EQU 

$05BP 

0040 

LBLBEG 

EQU 

$0040 

0042 

LBLEND 

EQU 

$0842 

0044 

SRCBEG 

EQU 

$0044 

0046 

SRCEND 

EQU 

$0046 

0048 

LINBVT 

EQU 

$0048 

0097 

FlLBEG 

EQU 

$009? 

0099 

FILENO 

EQU 

$0099 

005E 

20NE1 

EQU 

$005E 

0060 

ZONE2 

EQU 

$0060 

006A 

NUMFLG 

EQU 

$006Fi 

Q0SF 

INZFLG 

EQU 

$003F 

00BB 

BUFFER 

EQU 

$00Bo 

0958 

SPCPT1 

EQU 

$0058 

0096 

HEDCNT 

EQU 

$0096 

0040 

TEMP 

EQU 

$0040 

0C62 

MAKSP5 

EQU 

$0C62 

0203 

RESTRT 

EQU 

$0203 

0206 

INCH 

EQU 

$0206 

0483 

PSTRNG 

EQU 

$0483 


* TEMPORARV STORAGE 






. t • 


1491 


Z0NE1X 

RMB 


2 


1493 


Z0NE2X 

RMB 


2 


1495 


NMFG2 

RMB 


2 


1497 


( 5 &H TMPENO 

RMB 


37 


14BC 


TMPBEG 

RMB 


1 


14BD 

36—00 ^iB^LBLBGE 

FOB 


$3B00 

LABEL TABLE BEGIN AOOR. 

14BF 

3F 

FF VrFPLBLE02 

FOB 


$3FFF 

LABEL TABLE END AOOR. 

14C1 

4C 

f qpFF)L3T0RT 

FCC 


"'LISTING 

OR TAPE? ' 

14C2 

49 

S3 





14C4 

54 

49 





14C6 

4E 

47 





14C8 

20 

4F 





14CR 

52 

20 





14CC 

54 

41 





14CE 

50 

45 





14D0 

3F 

20 





1402 

04 


FCB 


4 




* ENTRV 

POINT 

UPON EXITING THE EOITOR 

14D3 

OE 

97 LAS 

LOX 


FlLBEG 

GET FILE BEGIN 

1405 

9C 

99 

CPX 


FILENO 

ANV SOURCE IN FILE? 

1407 

27 

7C 

BEQ 


RSTAR.T 

IF NOT, BACK TO EOITOR 

1409 

OF 

44 

STX 


SRCBEG 

SET SOURCE BEGIN 

140B 

OE 

99 

LOX 


FILENO 

SET SOURCE END 

1400 

09 


OEX 




140E 

OF 

46 

STX 


SRCENO 

• 

14E0 

86 

03 

LOA 

A 

#3 

SET LINE BVTE COUNT 

14E2 

97 

48 

STA 

A 

LINBVT 


14E4 

CE 

00 BB 

LOX 


4BUFFER 

SAVE EOITOR DATA 

14E7 

OF 

58 

STX 


SPCPT1 
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14E9 

CE 

00 

96 


LDX 

#HEDCNT 


14EC 

DF 

40 



STX 

TEMP 


14EE 

CE 

14 

BC 


LDX 

4TMPBEG 


14F1 

8D 

0C 

62 


JSR 

MRKSP5 


14F4 

DE 

5E 



LDX 

20NE1 

SAVE 20NE1 

14F6 

FF 

14 

91 


STX 

20NE1X 


14F9 

DE 

60 



LDX 

20NE2 

SAVE 20NE2 

14FB 

FF 

14 

93 


STX 

20NE2X 


14FE 

DE 

6A 



LDX 

NUMFL.G 

SAVE NUMBER & VERIFY 

1500 

FF 

14 

95 


STX 

NMFG2 


1503 

FE 

14 

BD 


LDX 

LBLBG2 

SET LABEL TABLE BEGIN 

1506 

DF 

40 



STX 

LBLBEG 


1508 

FE 

14 

BF 


LDX 

LBLED2 

SET LABEL TABLE END 

150B 

DF 

42 



STX 

LBLEND 


150D 

BD 

03 

26 


JSR 

P1INIT 

DO PASS 1 INITIALIZE 

1510 

BD 

03 

B1 


JSR 

PASONE 

DO PASS 1 

1513 

CE 

14 

Cl 


LDX 

#LSTORT 

ASK 'LISTING OR TAPE?' 

1516 

BD 

04 

83 


JSR 

PSTRNG 


1519 

FE 

14 

BF 


LDX 

LBLED2 

RESET LABEL END 

151Q 

DF 

42 



STX 

LBLEND 


151E 

BD 

02 

06 


JSR 

INCH 

GET RESPONSE 

1521 

81 

54 



CMP A 

#'T 


1523 

27 

08 



.BEQ 

TAPE 

' 

1525 

BD 

03 

6F 


JSR 

P2INIT 

IF LISTING, DO PASS 2 

1528 

BD 

03 

D9 


JSR 

PRSTWO 


152B 

20 

06 



BRA 

EDITOR 


152D 

BD 

03 

6F 

TRPE 

JSR 

P3INIT 

IF TAPE, DO PASS 3 

1530 

BD 

05 

BB 


JSR 

PRSTHR 






* REENTRY POINT ON EXIT 

FROM ASSEMBLER 

1533 

4F 



EDITOR 

CLR fl 


CLEAR FLAG 

1534 

97 

8F 



stp. a 

INZFLG 


1536 

CE 

14 

BC 


LDX 

4TMPBEG 

RESTORE EDITOR DATA 

1539 

DF 

58 



STX 

SPCPT1 


153B 

CE 

14 

97 


LDX 

•TMPEND 


153E 

DF 

40 



STX 

TEMP 


1540 

CE 

00 

BB 


LDX 

#BUFFER 


1543 

BD 

0C 

62 


JSR 

MRKSP5 


1546 

FE 

14 

91 


LDX 

Z0NE1X 

RESTORE 20NE1 

1549 

DF 

5E 



STX 

ZONE! 


154B 

FE 

14 

93 


LDX 

20NE2X 

RESTORE Z0NE2 

154E 

DF 

60 



STX 

Z0NE2 


1550 

FE 

14 

95 


LDX 

NMFG2 

RESTORE NUMBER & VERIFY 

1553 

DF 

6A 



STX 

NUMFLG 


1555 

7E 

02 

83 

RSTflRT 

JMP 

RESTRT 

JUMP INTO EDITOR 


1558 0D 

FCB 

$00 

. 

1559 

BEGPT2 EQU 

* 

START OF FILESPACE 


END 




NO ERROR<S> DETECTED' 






. .i. . . 


1 . 
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SVM0OL TRBLE: 

BEGPT8 1539 BUFFER 00BB EDITOR 1533 FILBEG 009? FXLEND 0099 
HEDCNT 0096 INCH 0206 IN2FLG 0O8F LfiS 14D3 LBLBEG 0040 
LBLBG2 14BD LBLED2 14BF LBLEND 0042 LINBVT 0048 LSTORT 14C1 
MfiKSPS 0C62 NMFG2 1495 NUMFLG O06P P1INIT 0326 P2INIT 036F 
P3INIT 036F PfiSONE .03B1 PfiSTHR 05BB PfiSTWO 03D9 ' PSTRNG 0483 
RESTRT 0203 RSTflRT 1555 SRCPT1 0058 SRCBEG 0044 SRCEND 0046 
TfiPE v 132D TEMP 0040 TMPBEG 14BC IMPEND 149? ZONE1 003E 
ZONE1X 1491 Z0NE2 0060 Z0NE2X 1493 


c 


OBJECT CODE: 


SI 05 
SI 09 
SI 86 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 13 
SI 0F 
S9 


0212 

028E 

0338 

14BD 

14CD 

14DD 

14ED 

14FD 

150D 

151D 

132D 

153D 

154D 


3fi FF 
4C 41 
CE 13 
3B 00 

41 30 
09 DF 
40 CE 
93 DE 
BD 83 

42 BD 
BD 03 
9? DF 
93 DF 


fiD 

53 00 14 

39 62 

3F FF 4C 

45 3F 20 

46 86 03 
14 BC'BD 
6fl FF 14 
26 BD 03 
02 06 81 
6F eD 03 

40 CE 00 
60 FE 14 


D3 9F 

49 S3 
04 DE 
9? 48 
0C 62 
95 FE 
B1 CE 
34 2? 
BB 4F 
BB BD 
95 DF 


54 49 4E 
97 9C 99 
CE BO BB 
DE 5E FF 
14 BD DF 
14 Cl BD 
08 BD 03 
97 8F CE 
0C 62 FE 
6fl 7E 02 


47 20 
2? 7C 
DF 38 
14 91 
40 FE 
04 83 
6F BD 
14 BC 
14 91 
03 0D 


4F 52 
DF 44 
CE 00 
DE 60 
14 BF 
FE 14 
03 D9 
DF 38 
DF 3E 
3C 


20 54 53 
DE 99 EB 
96 DF 62 
FF 14 B1 
DF 42 78 
BF DF DC 
20 06 Cl 
CE 14 D2 
FE 14 3E 
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THE TSC 6800 RELOCRTOR 

SL68-ES 

I 

Copyright <C> 1977 by 
Technical Systems Consultants* Inc. 

Box 2574; • W. Lafayette* IN 47906 
CX 17 > 742-7509 


/ 

S 


The TSC 6800 RELOCRTOR is a uery useful tool for any system 
owner* especially those who do assembly language programming, 
can move blocks of information from one location in RRM to 
another. It can also relocate machine code programs from one 
pj.« c# in RRM -to another or from -tape into RRM. Many variation* 
are possible as you will see from using the RELOCRTOR. The 

program is very easy to use as it prompts the user for all the 
information it needs. This manual explains the prompts and what 
they require in response. Included are 2 example relocations and 
the information necessary to relocate other TSC software. Rlso 
included is a co-resident link for the TSC TEXT EDITING SVSTEM 
and the TSC MNEMONIC ASSEMBLER. 


First of all* here are some hints on how to respond to computer 
prompts. When asked a question by the computer* in general type 
a 'V' for yes or an 'U' for no. When entering addresses* it is 
not necessary to type leading zeros. R return must be typed to 
terminate* the address. Note that only the last 4 digits typed 
are accepted. Thus if you detect an error in typing before 
hitting a return* you can type a few zeros and then type the 
correct address. 


r 

WHAT THE PROMPTS MEAN: 


1. PRESENT PROGRAM* BEGIN ADDRESS? . . . Hexadecimal address of 

the first byte to be relocated. 

2. PRESENT PROGRAM; END ADDRESS? . . Hexadecimal address of the 

last byte to be relocated. 

3. MOVE TO? . . . Hexadecimal address of the location to which 

you are moving the present program. 

4 . FIX REFERENCES? . . . Typing an 'H' will cause the program 

delimited in steps 1 and 2 above to be moved exactly as 
is* byte for byte* to the location specified in step 3 
above. Vou will then exit the RELOCRTOR. A "V" will 
allow the program to be relocated* fixing any extended 
addressing references that require a change. For a 
further description* read the section titled FIXING 
REFERENCES'. 
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5. LORD FROM TAPE? . . . Type art *N' if the program you are 

relocating is in RRM If you are relocating directly 

from tape* type a 'V'. The program will go into a load 

mode* much as if you had typed an 'L' into a MIKBUG 
monitor. If-there is an error during loading; you will 
be prompted 'LORD ERPOR! TRV AGAIN?'. Typing a 'V' at 
this point will put you back into the load mode. Rn 

'N' will cause an exit from the relocator program. If 

there are no load errors- upon receiving an 'S?' the 
computer will report.- ' LORO COMPLETED. ' fit this 

point the RELOCRTOP will pause until you type a space. 

6. DRTR BLOCKS? ... If the program you are relocating is made 

of executable code only type an 'N'. If there are 
blocks of data; print strings or etc ; type a 'V'. Vou 
will then be asked for "'BEGIN ADDRESS' and 'END 
ADDRESS' for as many blocks as you wish to enter. 
THESE BLOCKS MUST BE ENTERED IN ORDER. That is; the 
block with the lowest starting address must come first; 
the second lowest starting address comes next; and so 
on. To end the entering process; enter an 'FFFF' as 
the begin address of a block For a more complete 
description of what is considered a 'data block;' see 
the section titled 'DATA BLOCKS' 

. NOTE: These addresses are placed on a stack beginning 

at the end of the RELOCATOR <S06RD>. Be sure you have 
enough RAM there for the number of blocks uou enter! 



\ 


7. ALTER RANGE? . . . The 'range' is initially set to the 
beginning and the end of the program you are moving. 
This means that any JMP; JSR or other extended address 
instruction within that range will have an offset added 
to its reference <2nd and 3rd bytes} when relocated. 
Any extended instruction outside the range will be 
moved exactly as is; thus allowing monitor calls; 
external routine calls; etc. to be properly relocated. 
If you want the range left as is; type an 'N'. If you 
wish to change it.- type a 'V'. Vou will then be asked 
for the beginning and ending addresses of the new 
range. 



c 


8. FIX FDB'S? ... An FDB is a pseudo-op in standard 6800 

assemblers. Its function is to define 2 bytes of RAM 
to be some specific value. If there are no FDB's in 
your program; type an N' and you are finished. If 
there are FDB's which are used to set up constants or 
data as opposed to addresses; they should not be 

changed; so type an 'N' in this case also. A common 
use for FDB's is to setup addresses for jump tables; 
command tables- etc. If your program has FDB's which 
setup addresses- but all those addresses are outside 
the range used for relocation. type an 'N' as they 
should not be altered. If the addresses are within the 
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ranges you have •two choices; 

<1> If "the locations of the FDB's themselves are within 
range.- type a 'V'. 

<2) If the locations of the FOB'S themselves are 
outside the range, type an '0' or any other character. 

Now you will be asked for the address of the FOB 
itself. Von may enter as many FOB'S as you like and 
they need not be in any order. When finished, type an 
'FFFF' as an address to stop the input mode. 

9. RELOCATION COMPLETED!! ... Self-explanatory! 


LORDING FROM TAPE: 

The TSC 6880 RELOCRTOR has its own tape load routine which will 
read Motorola flikbug format tapes. Rs each record is read, an 
offset is added to. the record's loading address if that address 
is within the range of the prc v 'ft. When the LORD subroutine is 
called, the first thing it do-.-. turn on the reader control bit 
of the Mikbug control PIR. Next a string of control characters 
is sen^ out. The string is called TRPEON Cat location S05RF) and 
is presently set to four nulls. If your tape system requires 
some special control characters, you may patch them into this 
string. DO NOT remove the '4' at the end, however. Similarly 
when the tape is completely loaded or when an error is received, 
the reader control bit of the Mikbug control PIR is turned off. 
Then a string called TRPOFF Cat location $05B4> is sent out. 
TRPOFF is currently set to four nulls, but you may replace them 
with any control characters your tape system requires. Again, DO 
NOT remove the '4' at the end of the string. 

Note that the LORD routine is written as a subroutine and may 
therefore be called from another program if desired. Before 
calling it, however, you must setup an appropriate OLDPTR 
C$0213), OBJEND C$0217), OFFSTL CS021D), and OFFSTR CS021E). 
These would generally be set to $0008, $FFFF, $00 and $00 for a 
normal load operation. 


FIXING REFERENCES: 


It is not usually possible to directly mooe a* program from one 
location in memory to another due to the extended references <tho 
full 2 byte addresses in 3 byte instructions). For example* if 
you haue an instruction which says JUMP to $1012* when the 
program is mooed up by hex one hundred bytes it cannot stay the 
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same but must be changed to JUMP to $1112. This is what is meant 
by 'fixing references. ' The TSC 6S00 RELOCRTOR searches thru the 
instructions as they are moved and any extended references are 
singled out. These extended addresses are then compared to the 
range begin and end and if insi.de the range, the proper offset is 
added to the address. Any references +o outside the range are 
left unchanged so that jumps to external routines, calls to 
monitor routines, etc. will be properly relocated. 


DATA BLOCKS: 

Almost every program has areas which contain some type of data as 
opposed to executable code. When relocating, we must know where 
these blocks are for if we did not, there would be no way of 
knowing what was data and what was instructions. The 
instructions must have their extended references (the 2nd and 3rd 
bytes of 3 byte instructions') adjusted The data must be 
transferred as is, byte for by+e This is the reason for 
specifying DATA BLOCKS. All bytes within the begin and end 
addresses specified (inclusive: 1 will be relocated exactly as they 
are. 

How do you know what should be specified as a -DATA BLOCK'? If 
you have a source listing, it is generally quite easy. Any code 
generated by an RMB, FCB, FCC or FDB should be considered data. 
That's usually all there is to it 1 Of course if you wanted, 
instructions could be placed in a DATA BLOCK which would cause 
them to be relocated as is without fixing their references. 
Sometimes you may need to directly move a 3 byte immediate 
P instruction. See the section titled '3 BVTE IMMEDIATE 
INSTRUCTIONS' for further details. 

If you don't have a source listing, finding the data blocks 
becomes more of a problem. One solution is to put the object 
code thru a disassembler and then search out all data. Study the 
example relocations included for more insight. 


3 BVTE IMMEDIATE INSTRUCTIONS: 


There is one type of instruction which can cause problems for a 
relocator. That being a 3 byte immediate instruction of which 
there are three in the 6800 microprocessor• 

LORD INDEX REGISTER IMMEDIATE <*CE> 

LORD STACK POINTER IMMEDIATE ($8E> 

COMPARE INDEX REGISTER IMMEDIATE (*8C> 

In most cases the immediate by+es are an address. If that 
address is in range, it will be offset, otherwise it will be 
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directly relocated. This is the way it should be in almost all 
instances. Vou must keep an eye on the LDS command, however. 
Often one will say LDS immediate with an address outside the 
program. because you are setting up an external stack. Thus the 
stack will remain in the same place even though the program has 
been moved. If the stack is still out of the way. you have no 
problem, but it is something to look out for. 

Another problem i£ in loading data into the index register or 
comparing the index -egister to data as opposed to an address. 
If the data is a number which is lower than the value of RANGE 
BEGIN or higher than the value of RANGE END. you have no problem. 
If. however. the data is a number inside the range, it will be 
altered as it looks like an address to the RELOCATOR. Although 
this does not occur often. it will give you an incorrect 
relocation. 

To prevent these problems, you must know whether each occurence 
of a 3 byte immediate instruction contains immediate data or an 
immediate address. If it is an address, there will likely be no 
problem. If it is data, you should setup all 3 bytes of the 
instruction as a '-DATA BLOCK" as described above. 


ADAPTING TO VOUR SYSTEM: 

Adapting to your particular system is a very simple task. Vou 
must supply two routines. One is an output routine which outputs 
the A accumulator to your display and returns without affecting 
any other registers. The second is an input routine which inputs 
a character from your keyboard into the A accumulator and returns 
without affecting any other registers. Vou must patch the 
addresses of these routines into the RELOCATOR at $0220 and 
*0223. Upon completing a relocation, the program will jump to 
the address stored at’flONITR <*0226). Vou may patch any address 
you like here, such as the re-entry point of your monitor. If 
you are using a MIKBUG monitor, these 3 addresses are already set 
and need not be altered. 

Vou may need to alter the location of the stack which is 
presently setup at S0FFF. If this location is inconvenient for 
your particular system. you may change it by patching in the 
desired address at *0201 in the RELOCATOR. 

See the section titled "LOADING FROM TAPE" for instructions on 
adapting to your particular tape system. 
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SAMPLE RELOCATIONS: 

1) The TSC 6809 Relocator 


This sample will relocate the TSC 6809 RELOC-flTOR itself. The 
program starts at $9299 and ends at $96AF Let's assume we want 
to move it to $3209. Here is a copy of what the prompts and 
responses look like: 




.i 


vA 


o'i-o © 

0”7lb 

11 So o 

q80<> 

* TSC 6809 RELOCFITOR 
PRESENT PROGRAM• 

BEGIN ADDRESS? 209 
END ADDRESS? 6AF 
MOVE TO? 3290 
FIX REFERENCES? V 
LOAD FROM TAPE? N 
DATA BLOCKS? V 

♦ 

ol\S 

BEGIN ADDRESS? 296 
END ADDRESS? 21E 

Ojp\ o 
\ A 

VS*I 

BEGIN ADDRESS'* 5B1 

END ADDRESS? 6AF 

ot 

C\ E(\F 

o7°7 

o l l(o 

BEGIN ADDRESS? FFFF 
ALTER RANGE? N 

FIX FOB'S? N 



RELOCATION COMPLETED 

! ! ! 



Note that the Qstack remains at. i9FF~F~^ ) It may be necessary to 
change its location. Trie stacK is set immediately upon entering 
the program. Thus in the relocated version# it is set at $3200. 
The instruction there is an LDS #. Change the S0FFF there if 
necessary. 
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2) TSC Space Voyage 

SPACE VOYAGE actually begins at $000© and ends at $0FFE. The 
first part is temporary storage in page 0; however, and cannot be 
moved. We will relocate only the program beginning at $0100. 
Let's assume we want the program moved to $1008. This relocation 
has ah example of FDF's. They make up a jump table and thus are 
addresses. The FDB's themselves are outside the range/ however, 
so an '0' must be typed in response to the prompt. 'FIX FOB'S?' 
Here is what the relocation of SPACE VOYAGE looks like: 


* TSC 6800 RELOCATOR * 
PRESENT PROGRAM: 

BEGIN ADDRESS? 100 
END ADDRESS? FFE 
MOVE TO? 1000 
FIX REFERENCES? V 
LOAD‘FROM TAPE? N 
DATA BLOCKS? Y 

BEGIN ADDRESS? CSS 
END ADDRESS? FFE 

BEGIN ADDRESS? FFFF 
ALTER RANGE? N 
FIX FDB'S? 0 
ADDRESS? D3 
ADDRESS? D7 
ADDRESS? D9 
ADDRESS? DB 
ADDRESS? DD 
ADDRESS? DF 
ADDRESS? El 
ADDRESS? E3 
ADDRESS? E5 
ADDRESS? E7 
ADDRESS? FFFF 


RELOCATION COMPLETED !!! 






t 



TSC 6800 RELOCATOR 


o 


3) Disassembler 

BEGIN ADDRESS: 1990 
END ADDRESS: 1F14' 


DATA BLOCKS? Y 

FIX FOB'S** Y 

BEG ADDR: 197A 

ADDRESS: 1A94 

END ADDR: 199A 

1A96 

r 1A94 

1A98 

L1AB3 

1A9A 

T1BF9 

1A9C 

LlF14 

1A9E 


1AA0 

1AR2 

1AA4 

1RA6 

1AA8 

1AAA 

1AAC 

1AAE 

1AB0 

1AB2 


MAKING THE TSC EDITOR AND ASSEMBLER CO-RESIDENT: 

Following is a description of the steps necessary to relocate the 
TSC TEXT EDITING SYSTEM, allowing co-resident operation with the 
TSC 6800 MNEMONIC ASSEMBLER. 

1> Load the RELOCATOR 

2> Move it to $3200 and set its stack pointer to $3FFF (location . 

$3201 after relocation must be changed to $3F) 

3> Load the TSC TEXT EDITING SYSTEM 

4> Load the program called •'LAS' which has been included with this 
documentation. Type in all code generated by that progrs 
5> Relocate the Editoi—LAS pair according to the instructions giver 
below. (Begin execution of the RELOCATOR at $3200> 

6> Load the TSC 6800 MNEMONIC ASSEMBLER 
• Begin execution at *1700. See the LAS program for instructions 
on use and on adapting to a system larger than 16K. 


r 
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RELOCATING THE EDITOR-LAS PAIR: 


BEGIN ADDRESS: 

0200 

I c o 

ALTER RANGE? V 


END ADDRESS: 

1559 

n 

BEGIN ADDRESS: 

01FF 

MOVE TO: 

1700 

I A c '.<\ 

END ADDRESS: 

1559 

DATA BLOCKS? V 



FIX FDB' 

S? V 


BEG ADDR: 0212 



ADDRESS: 

021B 

02CE 

END ADDR: @354 




021F 

02D2 

f 044C 




0228 

02D9 

L 044D 




022C 

02E4 

r 0458 

r 1491 



0235 

02EA 

L045E 

L 14D2 



023C 

02F4 

f 0464 

r 150D 



0241 

02F8 

I-0470 

L1512 



0245 

02FF 

r 0476 

r 1525 



024E 

0305 

L 0482 

Ll532 



0252 

030C 

p 0946 

r 1558 



025B 

0310 

L 0955 

L1559 



©261 

0316 

r 0882 




0268 

031C 

L 0988 




026C 

0320 

T0A31 



« 

0272 

0329 

L0A47 


- 


027B 

032D 

. r 0BF2 




027F 

0335 

L0C07 




0288 

0339 

r 0C77 


. 


028C 

033D 

L0C86 




0292 

0344 

1" 0D7F 




0299 

0348 

L0DCA 




029E 

0949 

r 0FCA 




02A5 

094F 

L0FD3 




02AF 

0953 

r 1084 




02B4 

1245 

L10CF 




02B8 

124C 

r 1241 




02C2 

1252 

Ll25B 




02C6 

1259 







■1 



